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I. INTRODUCTION 


The Cell Arrangement Program for STAR (CAPSTAR) provides 
automated techniques for the layout of STARS. The procedures 
utilized in this program are described in another work ([!]). 
Instructions for program execution are given in [2]. 

This document is intended to serve as a programmer's 
reference manual for CAPSTAR. Descriptions of the internal logic 
flow of the program and of the organization of major internal 
data ann file structures are provided. In addition, information 
necessary for future program improvement and modification is 
g iven . 

The logical flow and data structure organization of CAPSTAR 
is described in Chapter II of this report. Chapter III contains 
outlines of the methods for particular program modifications and 
extensions. A listing of the program is given in an Appendix to 
this report. The remainder of this chapter is devoted to a 
general discussion of CAPSTAR. 

General Description 

CAPSTAR has been developed as a means of providing 
near-optimum STAR layouts while requiring a relatively small 
amount of computing resources. In addition, the program has been 
written so as to provide ease of modification and transportation. 

The program is written in the FORTRAN-IV programming 
language and language compatibility has been certified for the 
IBM FCRTRAN-IV level G and the XDS extended FORTRAN compilers. 
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With the exception of the use of Iroplied-DO constructs in 1/0 
statements, the FORTRAN used is ANSII standard. Thus, minimal 
modification of the source language should allow use of the 
program with most FORTRAN-IV compilers. 

The organization of CAPSTAR supports program modification 
and computing resource conservation. Program functions are 
modularized at the subroutine level so that any individual 
function can be easily modified or extended. Main storage 
requirements are minimized by use of overlaid unlabelled COMMON 
areas for local data storage. Sequential-access disk files are 
maintained to allow storage of data outside the main computer 
memory . 

Finally, to provide operator convenience, the program has 
been divided into two segments (Part A and Part B) which execute 
separately. This segmentation provides run-time modules which are 
small enough for execution on the XDS SIGMA/5 time-sharing s-'stem 
allowing operator supervision of program progress. 



II. PROGRAM AND DATA ORGANIZATION 


The high-level organization of CAPSTAR and of major program 
data structures is outlined in this chapter. 

CAPSTAR Structure 

In order to restrict execution storage requirements, CAPSTAR 
has been divided into two segments, Part A and Part B. The first 
of these segments implements the data entry, clustering, and 
linear ordering functions of the STAR cell placement procedure 
presented in [1]. The second segment performs the cell and pad 
placement tasks and builds the output database. The hierarchy of 
routines within each segment is indicated i.. Figures 1 and 2. 

Both A and B parts of CAPSTAR are modular at the subroutine 
level. Each subroutine contains explanatory comments relating to 
routine flow (see Appendix) . The high-level structure of the 
major routines is also shown in Figures 3 through 15. 
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Figure 1. CAPSTAR - Part A Calling Structure 



Figure 2. CAPSTAR - Part B Calling Structure 
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rig..r. 5. Subroutine GTCas n.jure 6. Subroutine ROHETS 



















I ifjuro 7. SubroiiLine XCIIECK Figure 8. Subroutine 
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Figure 13. Subroutine PLACE 








Figure 14. Subroutine FOLD 













Figure 15. Subroutine IMPROV 
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Internal Data Structures 


To facilitate data linkav.e and storage area re-use, the 
arrays used for internal CAPSTAR data storage reside in several 
FORTRAN COMMON blocks. With the exception of the unlabelled 
COMMON area (used for local data storage) , the data in each 
COMMON block is global data and is associated with the results of 
a particular processing step. 

The various CAPSTAR COMMON areas and the data v/ith which 


is associated are: 
Unlabelled Area - 

Local Data 

GLBL Area 

- 

CAPSTAR Control Variables 

HEADER Area 

- 

Output Header Data 

NETDTA Area 

- 

Network Description 

CLSDTA Area 

- 

Cell Clusters 

LINDTA Area 

- 

Linear Order 

CLNET Area 

- 

Cell-Net Lists 

FLDDTA Area 

- 

Cell Placement 

PADPL Area 

- 

Fad Placement 

arravs and 

variables saved in each of 


described in the documenting comments at the beginning of the 
source listing of Part A (see Appendix) . The structure of 
several of the more crucial global arrays is shown in Figures 16 


and 17. 
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figure 16. Crganization of Circuit Description Arrays 






Fitjure J7. Orqanization of Processing Step Result Arrays 
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CAPSTAR File Osage 

A number of disk files are accessed or constructed during a 
normal CAPSTAR run. These files are used for specification of 
input data, STAR cell type and pad location data, internal 
program storage, and output data. Each of the CAPSTAR files is 
briefly described in the following paragraphs. 

Input File 

Internal Name - RDR 

Channel - 15 

Purpose - Contains circuit description and user commands. 

Organization - Described in [2]. 


Cell Width File (STARWIDLIB) 

Internal Name - None 

Channel - 14 

Purpose - Provides mapping from cell type numbers to cell 

widths (in transistors). 

Organization - Each record contains a single cell type number 

and width in 2(14) format. 


Pad Location File (STARPADLOC) 

Internal Name - PADFIL 
Channel - 13 

Purpose - Specifies (x,y) co-ordinates for pads in each of 

the STAR sizes. 

Organization - Each record contains two entries in 2(14) 

format. The data for the R-row by C-column STAR 
begins with a record containing (-R,C) . The 
following records contain the (x,y) pairs for 
each I/O pad location in the R x C STAR. Power 
and ground pad locations should not be included. 
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Reduced Input File (lEFILE) 
Internal Name - lEFILE 


Channel - 12 


Purpose - Contains 'parsed* data from input file to ease 

construction of output file. 


Organization - Divided into sections by header records of form 

(0,-1) where I indicates what data is in the 
following records. 

1=1 - Circuit name in 2(A4) format. 

1=2 - STAR size in 2(112) format. 

1=3 - (cell #,type #) *s in 2(112) format. 

1=4 - Net data header. 

1=5 - Net # (112 format) , then (cell, pin) 's in 
2(112) format. 

1=6 - Source record in 72 (Al) format in next 
record, only. 

1=7 - End of data. 


Data Passage File (PASS) 
Internal Name - PASSFL 


Channel - io 

Pucoose - Contains global data passed from Part A to Part 

B. 

Organization - GLBL, NETDTA, LINDTA COMMON areas in 20(14) 

format, first 3000 entries of CELNET area in 
10(18) format, HEADER area in 10 (A4) format, 
(ROWS, COLS, NFLSAV, NPISAV, MAXSOL, RN , CN) in 
20(14) formac. 


Temp Placement Files 1 and 2 


Internal Name - SAVFIL, SAVE2 


Channels 


16, 17 


Purpose 


Used for holding intermediate placements. 


Organization 


Each record 
array) where 
Pointers to 
in the PLPNT 


contains (placement #, rating, TEMP 
TEMP(I) ’‘PCS (1 ,2) *10**6 + POS(I,l). 
records in the files are maintained 
array. 
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Output File and 
Internal Name - 
Channels 
Purpose 

Organization 


Narrative Output File 
OUFILE, PRNTR 
19, 6 

Output file contains circuit data and layout in 
form suitable for router. Narrative output 
provided for user supervision. 

Described in [2]. 



III. MODIFYING CAPSTAR 


In this chapter, methods for performing modifications to the 
CAPSTAR system are outlined. The following sections a., 
organized functionally by the type of modification desired. The 
remainder of this section deals with general program updating 
policy. 

For consistency with previous revisions of this program, it 
is recommended that a new revision number should be assigned to 
the program each time that the source code is altered. In order 
to make this change, the revision number and date headers at the 
beginning of the two CAPSTAR segments should be updated. Also, 
the fourth entry of the array HEAD (defined in the MAIN routine 
in Part A) should be modified. 

In revisions which are designated for a particular target 
machine, the first two entries of the HEAD array should be 
changed. If no particular target machine is desired, these two 
fields can be left blank. 

Adding Cell Types to The 
STAR Cell Width Library 

Each cell to be placed by CAPSTAR must have a type number 
specified in the STAR cell width file (STARWIDLIB) . To add a new 
cell type number, CT, to this file, the record 

CT CW 

should be added at the end of the file, where CVJ is the width (in 
transistors) of the new cell type. The entries should appear in 
2(14) format. 
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Defining New STARS 

The positions of the I/O (not Power or Ground) pads for each 
STAR size must be specified in the STAR pad location file 
(STARPADLOC) . In order to define pad positions for an R-row by 
C*-co.lumn STAR, the record 

-R C 

should be added at the end of the file. This record should be 
followed by records of the form 

y 

where x and y are the co-ordinates of one I/O pad. A record 
should be included for each I/O pad position. Each record should 
be typed in 2(14) format. 

If the size of the new STAR exceeds the current MXROWS by 
MXCOLS maximum STAR size, it will be necessary to increase these 
bounds (see "Resetting Program Bounds"). 

Resetting Program Bounds 

Restrictions on input circuit and STAR size are set at the 
values assigned to 1C constant dimension control variables. Ihe 
functions of these variables, each of which begins with "MX", are 
shown in the "Global CAPSTAR Variables" section of the 
documenting comments at the beginning of Part A (see Appendix) . 
The value of each of the variables is set in the MAIN routine of 
Part A. 

The variables are used to establish the dimensions of many 
of the local and global arrays used in CAPSTAR. Thus, 
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modification of the values of the variables necessitates 
re-dimensioning of some arrays. To facili 'tte this operation, a 
list of all CAPSTAR arrays, the variibiles upon which their 
dimensions depend, and the program segment and COMMON areas in 
which they appear is provided at the beginning of Part A of the 
CAPSTAft source. Care should be taken that any change in the 
dimension control variable values is accompanied by 
re-dimensioning of all associated arrays. 

Internal programming procedures establish implicit upper 
limits on the values assigned to two of the dimension control 
variables. Since it is necessary, at times, to maintain lists 
containing both cell and cluster numbers, the maximum cell number 
(MXCELS) is strictly upper-bounded by the lowest cluster number 
(1C£C) . In addition, the maximum number of circuit nets (MXNETS) 
is limited to less than 1000 by the cell-net data packing 
procedure. Extension of variable settings beyond these implicit 
limits would require program data storage or procedure 
modification . 


Modifying the Rating Structure 

The quality of the STAR placements produced depends directly 
upon the STAR placement rater (RATE). The primary result of this 
routine is a value, RATING, which lies between G and 10^ with 
higher values indicating more desirable conditions. 

RATING is obtained by taking a linear multiple of the PR 
value shown in Chapter 5 of [1]. The value of PR (ZTR in the 
source listing) is derived from a weighted sum of the factors 
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relating to desired qualities. The weights assigned to each 
factor reflect the relative importance of the factors to the 
over-all placement quality. 

Thus, to increase the likelihood of occurrence of a 
characteristic, it is necessary to increase the weight multiple 
associated with it. It should be noted {[!]) that the weights 
also appear in the denominator of ZTR so that adjustment of this 
term is also required. 

It is also possible to modify the rating structure & to 
include previously unmeasured characteristics of the placement. 
The factor computed for the new characteristic should take on 
values between 0 and 1 with higher values indicating less-desired 
characteristics. A weighting factor should then be calculated and 
included in the STAR computation as previously indicated. 

Re-Dividing The Program 

To maintain CAPSTAR in a form adaptable to time-shared 
execution, it has been necessary to divide the program into two 
pacts. If future division is required, the scheme used in the 
PASS and CATCH routines should be used for program linkage. 

This organization entails writing all necessary global and 
local data areas to a disk file prior to termination of the first 
segment and reloading the data in the second. Care should be 
taken that any global variables (such as R13 or CM) are also 
passed . 


* 
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ccccc 

A 

A 

P 

SSSSS 

T 

A 

A 


c 

c 

C CELL ARRANGEMENT PROGRAM FOR THE STANDARD 
C TRANSISTOR ARRAY 

C 
C 

C VERSION 2A REVISION 4 — JUNE 1979 


C 

C 

C 

C 

C AUTHOR: 
C 

c 

c 

c 


GLENN W. COX 
EE DEPT 

AUBURN UNIVERSITY 
AUBURN, AL 36330 


C 


C******»<HHHt *★**★*★»★★*»★******★★********* ********* 


c 

C THE PURPOSE OF THE CAPSTAR PROGRAM IS TO PROVIDE 
C TWO-DIMENSIONAL PLACEMENTS OF LOGIC CELLS AND 
C PADS FOR THE STANDARD TRANSISTOR ARRAY (STAR). 

C 

C THE INPUT TO THE PROGRAM IS THE LOGIC CIRCUIT 
C CELL AND INTERCONNECTION DESCRIPTION. THE OUTPUT 
C CONSISTS OF THE CIRCUIT DESCRIPTION AND THE 
C GENERATED CELL PLACEMENT IN A FORM SUITABLE FOR 
C USE BY A STAR ROUTING PROGRAM. APPROPRIATE 
C USER (NARRATIVE) OUTPUT IS ALSO PROVIDED. 

C 

C 

c ************************************** * *********** 

c 

c 

C CAPSTAR FUNCTIONAL SECTIONS 

C 
C 
C 

c 

c 

C CNTL FUNCTION: CAPSTAR CONTROL 


RRRRRR 
R R 

R R 

RRRRRR 
R R 
R R 
R R 


00000110 

00000120 

00000130 

00000140 

000CQ150 

00000160 

00000170 

00000130 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

OOOOOA60 

00000470 

00000480 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

J0000570 

00000580 

00000590 

00000600 

00000610 

00000620 


o 
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f ^ 


ROUTINES: 

L c 

INPT 

FUNCTION: 

V c 


ROl'TINES: 

ll c 



1 c 

XCHK 

FUNCTION: 

i ^ 


ROUTINES: 

i 



1 ^ 

CLST 

FUNCTION: 

1 ^ 


ROUTINES: 

J c 



i ^ 

LINE 

FUNCTION: 

! c 


ROUTINES: 

1 C 



i ^ 

PASS 

FUNCTION: 

! C 


ROUTINES: 

I c 



c 

PLAC 

FUNCTION: 

f c 


ROUTINES: 

' c 



c 

FOLD 

FUNCTION: 

c 


ROUTINES: 

c 



c 

IMPR 

FUNCTION: 

c 


ROUTINES: 

c 



c 

RATE 

FUNCTION: 

c 


ROUTINES: 

c 



c 

PADP 

FUNCTION: 

c 


ROUTINES: 

c 



. c 

Four 

FUNCTION: 

c 


ROUTINES: 

' c 



c 

NOUT 

FUNCTION: 

c 


ROUTINES: 


c 


RAIN IN BOTH PROGRAM SEGMENTS 

CIRCUIT AND CONTROL DATA- INPUT 
GTITEM,JAM,RDNETS^GTCELS,ST0RD 

INPUT DATA CROSS-CHECKING 
XCHECK 

CELL aUSTERING 

CLSTER^P0INT2^RE0RS,FNDBES^RPD0 

aUSTER DECOMPOSITION 
LINEUP, CELNET 

DATA PASSAGE BETWEEN PROGRAM SEGMENTS 
PASS, CATCH 

PLACEMENT CONTROL 
PLACE 

LINEAR ORDER FOLDING 
FOLD, PUT, CROSS 

PLACEMENT IMPROVEMENT 
IMPROV 

PLACEMENT RATING 
RATE 

PAD PLACEMENT 
PADPUT 

OUTPUT FILE CONSTRUCTION 
OUT0LD,MSFCF 

NARRATIVE OUTPUT FORMATTING 
HIRCRS,DEPICT,FIGGER,QUAL 


C»**»** ****************************** < H >< H > *** * * < KK *«* 

C 

C 

C CAPSTAR CALLING STRUCTURE (PART A) 

C 

C 


MAIN 


C 

C 

C 


— >GTCELS— 
— >RDNETS— 


— >GT ITEM— > JAM 


00000630 

00000640 

00000650 

00000660 

00000670 

00000630 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

00000840 

00000850 

00000860 

00000870 

00000380 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 



■- 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


>GTORD — 

>XCHECK >FND8ES 

* • 

a • 

: —>CLSTER >REORG— >REOO— 

: : >P0INT2 

:—>HNEUP 
>UIRCRS 
:-r->PASS 
>CELNET 

CAPSTAR CALLING STRUCTURE (PART B) 

KAIN >CATCH 

>PLACE >FOLD >CROSS 

• • 

• « 

: >PUT 

>RATE 

:—>QUAL 

>ISPROV— >RATE 


00001150 

00001160 

00001170 

00001180 

00001190 

00001200 

00001210 

00001220 

00001230 

00001240 

00001250 

QO0Q126O 

00001270 

00001280 

00001290 

00001300 

00001310 

00001320 

00001330 

00001340 

00001350 

00001360 

00001370 

00001380 

00001390 

00001400 

00001410 

00001420 

00001430 

00001440 

00001450 

00001460 

00001470 


c 

c 

c 


~>DEPICT— >FIGGER 
— >PADPUT 


C : 

C >OUT0LD— >NSFCF 

C 

C 

C 

c 

C**»»**<H> »★*»★******* **»»*******<t***0»*a< H >*****»*lH^ 

C 

C 

C FORTRAN CHANNEL ASSIGNMENTS 

C 

C 

C 

C 

C 

C CHANNEL; ASSIGNED TO: 


00001430 
00001490 
00001 500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001530 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
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c 



OOQ01670 

c 



00001680 

c 

6 

NARRATIVE OUTPUT DEVICE 

00001690 

c 



00001700 

c 

12 

REDUCED INPUT FILE 

00001710 

c 



00001720 

c 

13 

STAR PAD LOCATION FILE 

00001730 

c 



00001740 

c 

14 

STAR CELL WIDTH FILE 

00001750 

c 



00001760 

c 

15 

INPUT FILE 

00001770 

c 



0000“* 

c 

16 

TEflP PLACEMENT FILE 1 

00001790 

c 



00001300 

c 

17 

TEMP PLACEMENT FILE 2 

00001810 

c 



00001320 

c 

18 

DATA PASSAGE FILE 

00001330 

c 



00001840 

c 

19 

OUTPUT FILE 

00001850 

c 



00001860 

c 



00001870 

c 



00001880 


00001390 

c 



00001900 

c 



00001910 

c 

GLOBAL CAPSTAR VARIABLES 

00001920 

c 



00001930 

c 

(* — CONSTANT FOR A GIVEN REVISION) 

00001940 

c 



00001950 

c 



00001960 

c 



00001970 

c 



00001980 

c 



00001990 

c 

VARIABLE; 

MEANING: 

00002000 

c 



00002010 

c 



00002020 

c 

CAPHC1 * 

TARGET MACHINE NAME (1ST 4 CHAR.) 

00002030 

c 



00002040 

c 

CAPWC2 * 

TARGET MACHINE NAME (2ND 4 CHAR.) 

00002050 

c 



00002060 

c 

CAPREV * 

CAPSTAR REVISION NUMBER 

00002070 




00002030 

c 

CARVER * 

CAPSTAR VERSION NUMBER 

00002090 

c 



00002100 

c 

CN 

CELL NEIGHBORHOOD FOR IMPROVEMENT 

00002110 

c 



00002120 

c 

COLS 

ACTUAL n OF STAR COLUMNS 

00002130 

c 



00002140 

r 

DEBUG 

CONTROLS OUTPUT DEBUGGING MODE 

00002150 

c 



00002160 

c 

JAAXSOL 

USER-SEL. MAX U FOLDING SOLUTIONS 

00002170 

c 



00002180 


c 

HXCELS * 

MAXIMUM # OF CELLS AND PADS IN CIRCUIT 

00002190 

c 



00002200 

c 

NXCLNT * 

MAXIMUM SUM OF NET SIZES 

00002210 

c 



00002220 

c 

NXCLUS * 

MAXIMUM U OF CLUSTERS FORMED 

00002230 

c 



00002240 

c 

HXCOLS * 

MAXIMUM » OF STAR COLUMNS 

00002250 

c 



00002260 

c 

HXDFSZ * 

MAXIMUM 9 OF DIFFERENT NET SIZES 

00002270 

c 



00002280 

c 

HXNETS * 

MAXIMUM 9 OF NETS 

00002290 

c 



00002300 

c 

NXNTCL * 

MAXIMUM 9 OF NETS ON ONE CELL 

00002310 

c 



00002320 

c 

flXNTSZ * 

MAXIMUM NET SIZE 

00002330 

c 



00002340 

c 

HXPAOS * 

MAXIMUM 9 OF CIRCUIT PADS 

00002350 

c 



00002360 

c 

HXROyS * 

MAXIMUM 9 OF ROWS IN STAR 

00002370 

c 



00002380 

c 

NANE1 

CIRCUIT NAME (1ST 4 CHAR.) 

00002390 

c 



00002400 

c 

NAflE2 

CIRCUIT NAME (2ND 4 CHAR.) 

00002410 

c 



00002420 

c 

Ncais 

ACTUAL 9 OF CELLS ,\ND PADS IN CIRCUIT 

00002430 

c 



0QCQ2440 

c 

NFLSAV 

9 FOLDING SOLUTIONS TO BE IMPROVED 

00002450 

c 



00002460 

c 

NNETS ■ 

ACTUAL 9 OF NETS IN CIRCUIT 

00002470 

c 



00002480 

c 

NPAOS 

ACTUAL 9 OF PADS IN CIRCUIT 

00002490 

c 



Q000250U 

c 

NPISAV * 

9 IMPROVED SOLUTIONS TO BE PRESENTED 

00002510 

c 



00002520 

c 

PRNTR * 

FORTRAN CHANNEL 9 FOR NARRATIVE OUTPUT 

00002530 

c 



00002540 

c 

ROR * 

FORTRAN CHANNEL 9 FOR INPUT 

00002550 

c 



00002560 

c 

ROWS 

ACTUAL 9 OF STAR ROWS 

00002570 

c 



00002580 

c 

RN 

ROW NEIGHBORHOOD FOR IMPROVEMENT 

00002590 

c 



00002600 

c 

TRACK 

EFFECTIVE LENGTH OF TRACE ARRAY 

00002610 

c 



00002620 

c 



00002630 

c»****»****»**»»**»* ******************************* 

00002640 

c 



00002650 

c 



000D2660 

c 

CAPSTAR 

ARRAYS 

00002670 

c 



00002630 

c 



00002690 

c 



00002700 



ooor»or>ooonr»oo 
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C 

c 

C A 

C 

C 

c 

c 

c 

c 

C B 

C 

C 

C 

C 

C 

c 

C BANK 

C 
C 
C 

c 

c 

C BARIER 

C 
C 
C 

c 

c 

c 

c 

C BC 

C 

C 

c 

c 

c 

C BN 

C 


C5 


CARO 


C 


ALTERNATE NAMES: 

DIMENSION: 

PURPOSE: 

USED IN: 

COMMON AREA: 

ALTERNATE NAMES; 

DIMENSION; 

PURPOSE: 

USED IN: 

COMMON AREA: 

ALTERNATE NAMES: 

DIMENSION: 

PURPOSE: 

USED IN: 

COMMON AREA: 

ALTERNATE NAMES: 

DIMENSION: 

PURPOSE: 


USED IN: 

COMMON AREA: 

ALTERNATE NAMES: 

DIMENSION: 

PURPOSE: 

USED IN: 

COMMON AREA: 

ALTERNATE NAMES: 

DIMENSION; 

PURPOSE; 

USED IN: 

COMMON AREA: 

ALTERNATE NAMES: 
DIMENSION; 
PURPOSE: . 

USED IN: 

COMMON AREA: 

ALTERNATE NAMES; 

DIMENSION: 

PURPOSE; 

USED IN: 


NONE 

MXNTCL 

LIST OF NETS CONNECTED TO 
CELL Cl IN DECOMP. PROC. 

LINE 

BUNK 

NONE 

MXNTCL 

LIST OF NETS CONNECTED TO 
CELL C2 IN DECOMP. PROC. 

LINE 

BUNK 

NONE 

MXNTSZ 

TEMP STORAGE 

CLST 

BLANK 

NONE 

MXPADS^Z 

LIST OF BARRIERS NEEDED 
TO KEEP ROUTER OUT OF 
UNUSED PAD AREAS 
PADP 
BUNK 

NONE 

HXCLNT 

NET LISTS FOR CLUSTERING 

CLST 

BLANK 

NONE 

MXCLNT 

CELL -NET LISTS FOR CLUSTERING 

CLST 

BLANK 

NONE 

MXCELS 

ROTATION BOUNDARY ORDERING FOR FOLD 

FOLD 

BLANK 

NONE 

73 

HOLDS INPUT RECORD FOR PROCESSING 
INPT 


00002710 

00002720 

00002730 

00002740 

00002750 

00002760 

00002770 

00002780 

00002790 

00002800 

00002810 

00002820 

00002830 

CD002340 

00002850 

00002860 

00002870 

00002830 

00002890 

00002900 

00002910 

00002920 

00002930 

00002940 

00002950 

00002960 

00002970 

00002980 

00002990 

00003000 

00003010 

00003020 

00003030 

00003040 

00003050 

00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

OU003130 

00003140 

00003150 

00003160 

00003170 

00003180 

00003190 

00003200 

00003210 

00003220 


o o o 
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I 


I 


i 


1 

( 

I 


t 

\ 


( 


c 

c 

c cc 

c 

c 

c 

c 

c 

C CELL 

C 

C 

C 

C 

C 

C CELLS! 

C 

C 

C 

C 

C 

C CELPNT 

C 

C 

C 

C 

C 

C CHIP 


C 

C 

C CHR 

c 

C 

C 

C 

c 

c awTS 

c 

c 

c 

c 

c 

C CNTUDL: 

C 

C 

c 

c 

c 

C COUNT 

C 


COMMON AREA: 

NONE 


00003230 

00003240 

ALTERNATE NAMES: 

NONE 


00003250 

DIMENSION: 

2*MXCLNT+2 


00003260 

PURPOSE: 

CONTAINS CELNET COMMON FOR 

PASS 

00003270 

USED IN: 

PASS 


00003280 

COMMON AREA: 

CLNET 


00003290 

00003300 

ALTERNATE NAMES: 

NONE 


00003310 

DIMENSION: 

HXCELS 


00003320 

PURPOSE: 

CELL LIST FOR aUSTERING 


00003330 

USED IN: 

CLST 


00003340 

COMMON AREA: 

BLANK 


00003350 

00003360 

ALTERNATE NAMES: 

NONE 


00003370 

DIMENSION: 

MXCELS 


00003380 

PURPOSE; 

LIST OF CELLS HOOKED TO EACH PAD 

00003390 

USED IN: 

PADP 


00003400 

COMMON AREA: 

BLANK 


00003410 

00003420 

ALTERNAME fiAMES: 

NONE 


00003430 

DIMENSION: 

MXPADS 


00003440 

PURPOSE: 

POINTER FOR CELLS! ARRAY 


00003450 

USED IN: 

PADP 


00003460 

COMMON AREA: 

BLANK 


00003470 

00003480 

ALTERNATE NAMES: 

C,C7 


00003490 

DIMENSION: 

MXROyS,MXCOLS 


00003500 

PURPOSE: 

STAR MODEL 


00003510 

USED IN: 

PUC^FOLD^RATE^IMPR^NOUT 


00003520 

COMMON AREA: 

FLDDTA 


00003530 

00003540 

ALTERNATE NAMES; 

NONE 


00003550 

DIMENSION; 

HXCLUS,3 


00003560 

PURPOSE: 

CELL CLUSTERING HISTORY 


00005570 

USED IN: 

CLST^LINE 


00003530 

COMMON AREA: 

CLSDTA 


00003590 

00003600 

ALTERNATE NAMES: 

NONE 


00003610 

DIMENSION: 

2*MXCLNT 


00003620 

PURPOSE: 

CELL-NET LISTS 


00003630 

USED IN: 

LINE^NOUT 


00003640 

COMMON AREA: 

aNET 


00003650 

00003660 

ALTERNATE NAMES: 

NONE 


00003670 

DIMENSION: 

13 


00003680 

PURPOSE: 

CAPSTAR CONTROL STATEMEHT 

TEMPLATES 

OOOC3690 

USED IN: 

CNTL 


00003700 

COMMON AREA: 

NONE 


00003710 

00003720 

ALTERNATE NAMES; 

NONE 


00003730 

DIMENSION: 

MXNETS 


00003740 


- --- 
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c 


PURPOSE: 

NET SIZES FOR WIRECROSS OUTPUT 

00003750 

c 


USED IN: 

NOUT 

00003760 

c 


COnnON AREA: 

a-ANK 

00003770 

c 




00003780 

c 

OALST 

ALTERNATE NAMES: 

NONE 

00003790 

c 


DIMENSION: 

6 

00003800 

c 


PURPOSE: 

DATA AVAILABILITY FLAGS 

00003810 

c 


USED IN: 

CNTL 

00003820 

c 


COMMON AREA: 

NONE 

00003830 

c 




00003840 

c 

DIG 

ALTERNATE NAMES: 

NONE 

00003850 

c 


DIMENSION: 

10 

00003860 

c 


PURPOSE: 

DIGIT CHARACTER TEMPLATES 

00003870 

c 


USED IN: 

INPT 

00003880 

c 


COMMON AREA: 

NONE 

00003890 

c 




00003900 

c 

DIGS 

ALTERNATE NAMES: 

NONE 

00003910 

c 


DIMENSION: 

12 

00003920 

c 


PURPOSE: 

CHARACTERS FOR DEPICT OUTPUT 

00003930 

c 


USED IN: 

NOUT 

00003940 

c 


COMMON AREA: 

NONE 

00003950 

c 




00003960 

c 

OWNNET 

ALTERNATE NAMES: 

NONE 

00003970 

c 


DIMENSION: 

MXCLNT 

00003980 

c 


PURPOSE: 

LIST OF NETS TERMINATING TO 

00003990 

c 



RIGHT OF TARGET CELL IN DECOMP. 

PR0C00004G00 

c 


USED IN: 

LINE 

00004010 

c 


COMMON AREA: 

BLANK 

00004020 

c 




00004030 

c 

FWID 

ALTERNATE NAMES: 

NONE 

00004040 

c 


DIMENSION: 

MXCELS 

00004050 

c 


PURPOSE: 

FORHARD CUMULATIVE CELL yiDTHS 

00004060 

c 



FOR yiRECROSS OUTPUT 

00004070 

c 


USED IN: 

NOUT 

00004080 

c 


COMMON AREA: 

BLANK 

00004090 

c 




00004100 

c 

GG 

ALTERNATE NAMES: 

NONE 

00004110 

c 


DIMENSION: 

16 

00004120 

c 


PURPOSE: 

CONTAINS O.BL COMMON FOR PASS 

00004130 

c 


USED IN: 

PASS 

00004140 

c 


COMMON AREA: 

GLBL 

00004150 

c 




00004160 

c 

HEAD 

ALTERNATE NAMES: 

NONE 

00004170 

c 


DIMENSION: 

6 

00004180 

c 


PURPOSE: 

INITIALIZATION 

00004190 

c 


USED IN: 

CNTL 

00004200 

c 


COMMON AREA: 

NONE 

00004210 

c 




00004220 

c 

HH 

ALTERNATE NAMES; 

NONE 

00004230 

c 


DIMENSION: 

6 

00004240 

c 


PURPOSE: 

CONTAINS HEADER COMMON FOR PASS 

00004250 

c 


USED IN: 

PASS 

00004260 


r> o o 
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C 

c 

c 

c 

c 

C LO 

c 

c 

c 

C 

C 

c 

C LINORD 

C 

C 

C 

C 

C 

C KBP 

c 

c 

c 

c 

c 

C NC 

c 

c 

c 

c 

c 

C NET 

C 

c 

c 

c 

c 

C NETNOS 

C 

C 

C 

C 

C 

C NN 

C 

c 

c 

c 

c 

C NN 


COmON AREA: HEADER 


ALTERNATE NAMES: 

DIMENSION: 

PURPOSE: 

USED IN: 

COMMON AREA: 


LI 

MXCELS 

LINEAR ORDER 

FOLD 

BLANK 


ALTERNATE NAMES: 

DIMENSION 

PURPOSE: 


USED IN: 
COMMON AREA: 


NONE 

MXCELS 

UNROTATED LINEAR ORDER FOR FOLDING 
(PADS DELETED) 

FOLD 

BUNK 


ALTERNATE NAMES: 

DIMENSION: 

PURPOSE; 

USED IN: 

COMMON AREA: 


L,LL 

MXCELS 

LINEAR ORDER 

LINE^INPT^XCHK^PASS 

LINDTA 


ALTERNATE NAMES: 

DIMENSION: 

PURPOSE: 

USED IN: 

COMMON AREA: 


NONE 

MXCLUS+NXCELS 

LIST OF # OF PADS IN EACH CLUSTER 

CL5T 

BLANK 


ALTERNATE NAMES: NONE 
DIMENSION; MXNETS 

PURPOSE: LIST OF NET SIZES FOR CLUSTERING 


USED IN: CLST 

COMMON AREA: BUNK 


ALTERNATE NAMES: 

DIMENSION: 

PURPOSE: 

USED IN: 

COMMON AREA: 


NETS,INP 

MXCLNT 

CIRCUIT NET LISTS 
ALL 

NETDTA 


ALTERNATE NAMES: NONE 
DIMENSION; MXNETS 

PURPOSE: LIST OF 

USED IN: ALL 

COMMON AREA: NETDTA 


ISER-ASSIGNED NET NAMES 


ALTERNATE NAMES: NONE 
DIMENSION: MXCELS 

PURPOSE: 

USED IN: 

COMMON AREA: 


U OF NETS FOR EACH CEU FOR CLST 

CLST 

BUNK 


ALTERNATE NAMES: NONE 


OQ004Z70 

00004280 

00004290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 

00004390 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

00004470 

00004480 

00004490 

00004500 

00004510 

00004520 

00004530 

00004540 

00004550 

00004560 

00004570 

00004530 

00004590 

00004600 

00004610 

00004620 

00004630 

00004640 

00004650 

00004660 

00004670 

00004630 

00004690 

00004700 

00004710 

00004720 

00004730 

00004740 

00004750 

00004760 

00004770 

00004780 





I 
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t. 


I 


! 

I 

I 



c 


OIWENSION: 

MXCLNT+MXCELS+MXPADS+MXNETS 

00004790 

c 


PURPOSE: 

CONTAINS NETDTA COMMON FOR PASS 

0C00480Q 

c 


USED IN: 

PASS 

00004810 

c 


COMNON AREA: 

NETDTA 

00004820 

c 




00004830 

c 

NO 

ALTERNATE NAMES: 

NONE 

00004840 

c 


DIMENSION: 

MXNETS 

OO0Q4B5O 

c 


PURPOSE: 

TEMP STORAGE 

00004360 

c 


USED IN: 

LINE 

00004870 

c 


COMMON AREA: 

BLANK 

00004880 

c 




00004890 

c 

OPT 

ALTERNATE NAMES: 

NONE 

00004900 

c 


DIMENSION: 

MXPADS,2 

00004910 

c 


PURPOSE: 

LIST OF OPTIMUM PAD ASSIGNMENTS 

00004920 

c 


USED IN: 

PADP 

00004930 

c 


COMMON AREA: 

BLANK 

00004940 

c 




00004950 

c 

p 

ALTERNATE NAMES: 

NONE 

00004960 

c 


DIMENSION: 

MXCELS,2 

00004970 

c 


PURPOSE: 

DUMMY POS ARRAY FOR IMPROVEMENT 

00004980 

c 


USED IN: 

IMPR 

00004990 

c 


COMMON AREA: 

BLANK 

00005000 

c 




00005010 

c 

PAD 

ALTERNATE NAMES: 

P 

00005020 

c 


DIMENSION: 

MXPADS 

00005030 

c 


PURPOSE: 

LIST OF CIRCUIT PADS 

00005040 

c 


USED IN: 

ALL 

00005050 

c 


COMMON AREA: 

NETDTA 

00005060 

c 




00005070 

c 

PC 

ALTERNATE NAMES: 

NONE 

00005030 

c 


DIMENSION: 

MXNETS 

00005090 

c 


PURPOSE: 

POINTER FOR BC ARRAY 

00005100 

c 


USED IN: 

CLST 

00005110 

c 


COMMON AREA: 

BLANK 

00005120 

c 




00005130 

c 

PCN 

ALTERNATE NAMES: 

NONE 

00005140 

c 


DIMENSION: 

10 

00005150 

c 


PURPOSE: 

PLACEMENT CHARACTERIZATION «S 

00005160 

c 



TO ALLOW ELIMINATION OF DUPLICATES 

00005170 

c 


USED IN: 

PLAC 

00005180 

c 


COMMON AREA: 

NONE 

00005190 

c 




00005200 

c 

PLPNT 

ALTERNATE NAMES: 

NONE 

00005210 

c 


DIMENSION: 

10,2 

00005220 

c 


PURPOSE; 

POINTERS TO PLACEMENTS IN TEMP FILE 

00005230 

c 


USED IN: 

PLAC 

00005240 

c 


COMMON AREA: 

BLANK 

00005250 

c 




00005260 

c 

PN 

ALTERNATE NAMES: 

NONE 

00005270 

c 


DIMENSION: 

MXCELS 

00005280 

c 


PURPOSE: 

POINTER FOR BN ARRAY 

00005290 

c 


USED IN: 

CLST 

00005300 
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i 

i 




c 


COMMON AREA: 

BLANK 

00005310 



c 




00005320 



c 

POS 

ALTERNATE NAMES: 

NONE 

00005330 



c 


DIMENSION: 

HXCELS,2 

00005340 



c 


PURPOSE: 

LIST OF CELL POSITIONS 

00005350 

* 


c 


USED IN: 

PLAC^IHPR^NOUT^RATE 

00005360 



c 


COMMON AREA: 

FLDDTA 

00005370 



c 




00005380 



c 

REG 

ALTERNATE NAMES; 

NONE 

00005390 

A 

0 

c 


DIMENSION: 

MXCELS 

00005400 

.V 


c 


PURPOSE; 

TEMP STORAGE 

00005410 



c 


USED IN: 

CLST 

00005420 



c 


COMMON AREA: 

BLANK 

00005430 

- 


c 




00005440 



c 

SPACE 

ALTERNATE NAMES; 

NONE 

00005450 

“C 

i 


c 


DIMENSION: 

MXROWS 

00005460 

L 


c 


PURPOSE: 

CONTAINS SPACE REMAINING ON EACH 

R0W00005470 



c 


USED IN; 

FOLD 

00005480 



c 


COMMON AREA: 

BLANK 

00005490 



c 




00005500 



c 

STPLST 

ALTERNATE FRAMES: 

NONE 

00005510 



c 


DIMENSION: 

6 

00005520 

■ 


c 


PURPOSE; 

FLAGS FOR STEPS SELECTED 

00005530 



c 


USED IN: 

CNTL 

00005540 

i 

1 


c 


COMMON AREA: 

NONE 

00005550 

1 


c 




00005560 

k 


c 

STPNAH 

ALTERNATE NAMES: 

NONE 

00005570 



c 

i 

DIMENSION: 

6 

00005580 

j 


c 


PURPOSE: 

TEMPUTES FOR STEP NAME SELECTION 

00005590 

' 


c 


USED IN: 

CNTL 

00005600 



c 


COMMON AREA: 

NONE 

00005610 



c 




00005620 

W 


c 

TEMP 

ALTERNATE NAMES: 

NONE 

00005630 

; 


c 


DIMENSION: 

72 

00005640 



c 


PURPOSE: 

HOLDS OUTPUT RECORD FOR BUILDING 

00005650 

i 

) 


c 


USED IN; 

FOUT 

00005660 

i- 


c 


COMMON AREA; 

BLANK 

00005670 

1- 


c 




00005680 

1 

k 


c 

TEHP 

ALTERNATE NAMES; 

NONE 

00005690 

f 

i; 


c 


DIMENSION; 

MXNTSZ 

00005700 


c 


PURPOSE: 

TEMP STORAGE 

00005710 



c 


USED IN: 

CNTL 

00005720 

1 

[ 


c 


COMMON AREA: 

NONE 

00005730 



c 




00005740 



c 

TEMP 

ALTERNATE NANES: 

NONE 

00005750 

r\‘. 

v>- 


c 


DIMENSION: 

MXCELS 

00005760 



c 


PURPOSE: 

TEMP STORAGE 

00005770 

L>' 


c 


USED IN: 

XCHK 

00005780 



c 


COMMON AREA: 

BLANK 

00005790 

! 


c 




00005800 



c 

TEMP 

ALTERNATE NANES: 

NONE 

00005810 



c 


DIMENSION: 

MXNTSZ 

00005820 

c 

*T " 


l • ' ^ 










• 
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c 


PURPOSE; 

TEMP STORAGE 

c 


USED IN: 

CLST 

c 

r 


COMMON AREA: 

BLANK 

W 

c 

TEMP 

ALTERNATE NAMES: 

NONE 

c 


OIMENSIO'<: 

MXNTSZ 

c 


PURPOSE: 

TEMP STORAGE 

c 


USED IN: 

INPT 

c 

r 


COMMON AREA; 

BLANK 

U 

c 

TRACE 

ALTERNATE NAMES: 

TRACK 

c 


DIMENSION: 

MXCLUS/2 

c 


PURPOSE: 

NET ABSORPTION HISTORY 

c 


USED IN: 

CLST,LINE 

c 

r 


COMMON AREA: 

CLSDTA 

L 

c 

UPNET 

ALTERNATE NAMES: 

NONE 

c 


DIMENSION: 

MXCLNT 

c 

c 


PURPOSE: 

LIST OF NETS TERMINATING TO LEFT 
OF TARGET CEU IN DECOMP. PROC. 

c 


USEj IN: 

LINE 

c 

r 


COMMON AREA: 

BLANK 

L 

c 

W 

ALTERNATE NAMES: 

NONE 

c 


DIMENSION: 

MXCELS 

c 


PURPOSE: 

CELL WIDTHS FOR CLUSTERING 

c 


USED IN: 

CLST 

c 


COMMON AREA: 

BLANK 

c 

WID 

ALTERNATE NAMES: 

W 

c 


DIMENSION: 

MXCELS 

c 


PURPOSE: 

CIRCUIT CELL WIDTHS 

c 


USED IN: 

ALL 

c 

r 


COMMON AREA: 

NETDTA 

c 

ZPDLOC 

ALTERNATE NAMES: 

NONE 

c 


DIMENSION: 

MXPADS^Z 

c 

c 


PURPOSE: 

LIST OF PAD POSITIONS FOR GIVEN- 
STAR 

c 


USED IN: 

PAOP 

c 

c 


COMMON AREA: 

BLANK 

c 

ZPOPLC 

ALTERNATE NAMES: 

NONE 

c 


DIMENSION: 

MXPADS,2 

c 


PURPOSE: 

LIST OF PLACED PAD LOCATIONS 

c 


USED IN: 

PADP^NOUT 

c 


COMMON AREA: 

PAOPL 


C 

C 

c 

c 


00005830 
00005840 
00005850 
00005860 
00005870 
00005880 
00005890 
00005900 
00005910 
00005920 
■ 00005930 
00005940 
00005950 
00005960 
00005970 
00005980 
00005990 
00006000 
00006010 
00006020 
00006030 
00006040 
00006050 
00006C6D 
00006070 
00006030 
00006090 
00006100 
00006110 
00006120 
00006130 
00006140 
00006150 
00006160 
00006170 
00006130 
00006190 
SIZE00006200 
00006210 
00006220 
00006230 
00006240 
00006250 
00006260 
00006270 
00006280 
00006290 
00006300 
00006310 
00006320 
00006330 
00006340 
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c 


00006350 

c 


00006360 

c 


00006370 

c*************************** ******»»***»★★»»***»»* 

00006380 

c 


00004390 

c 


00006400 

c 

MAIN CONTROL ROUTINE 

00006410 

c 


00006420 

c 


00006430 


00006440 

c 


00006450 


IMPLICIT INTEGER(A-Y) 

00004460 

c 


00006470 

c 

DEFINE COMMON DATA AREAS 

00006480 

c 


00006490 

c 


00006500 

c 

GLOBAL COMMON 

00006510 

c 


00006520 


COMMON /GL3L/ PRNTR,RDR,NCELLS,NNETS,NPADS>DEBUG 

00006530 


& ^MXCELS,MXNETS,HXCLNT,W<CLUS^MXNTSZ,MXPADS,HXNTCL 

00006540 


& ^MXROWS^NXCOLS^MXDFSZ 

00006550 

c 


00006560 

c 

NET DATA COMMON 

00006570 

c 


00006580 


COMMON /NETDTA/ NET(3000) ^WIDCIOOO) ^PADdOO) ,NcTNOSC50D) 

00006590 

c 


00006600 

c 

CLUSTER DATA COMJ^ON 

00006610 

c 


00006620 


COMMON /CLSOTA/ CHR(500,3) ^TRACE(500,25 ^TRAC< 

00006630 

c 


00D06640 

c 

LINEAR ORDER DATA COMMON 

00006650 

c 


00006660 


COMMON /LINDTA/ LINORD(IOOO) 

00006670 

c 


00006680 

c 


00006690 

c 

HEADER COMMON 

00006700 

c 


00006710 


COMMON /HEADER/ CAPKCl ^CAP«C2/CAPVER^CAPREV/NAME1 ^NAMEZ 

00006720 

c 


00006730 

c 


00006740 

c 

SET UP LOCAL DATA 

00006750 

c 


00006760 

c 


00006770 


INTEGER STPLST(6),DALST(6),CAR0C73), 

00006780 


& CNTWDL (1 3) / 'GATE '/ NETS ‘ /LINE ' /NAME '/DEBU'/ star‘s 

00006790 


& 'STEP'/GO '/C '/FIND'^'INPR'^'SHOy^'NEIG'/^ 

00006800 


S STPNAM(6)/'CLUS'/LINE','UIRE', 

00006810 


S 'FXD'^'RATE'/DEPI'/ 

00006820 


INTEGER HEAD(6)/'SIGH'^'A/5 '/2A '/4 • / '/ '/ 

00006830 


INTEGER TEHP(IQO) 

00006840 

c 


00006850 

c 

DEFINE I/O ASSIGNMENTS 

00006860 


I 
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C 

RDR=15 

PRNTR=6 

IEFILE=12 

C 

C SET MX SIZES (VERSION DEPENDENT) 

C 

«XCELS=999 

«XNETS=500 

f1XCLNT=3000 

MXCLUS=700 

«XNTSZ=100 

HXPADS=10Q 

HXNTCL=20 

HXR0yS=30 

MXC0LS=100 

HXOFSZ=1QO 

C 

c 

C SET DEFAULT CONTROLS 
C 

DEBUG=0 

R0WS=28 

C0lS=94 

NFLSAV=3 

NPISAV=1 

MAXS0L=49 

RN=1 

CN=1 

C 

C 

C SET UP HEADER INFO 

C 

C 

CAP«C1=HEAO(1) 

CAPNC2=HEA0(2) 

CAPVER=HEAD(3) 

CAPREV=HEAD(4) 

NAHE1=HEAD(5) 

NAME2=HEAD(6) 

C 

C 

C PRINT HEADER 

C 

URITE(PRNTR,99999)CAPNC1 ,CAPflC2^CAPVER^CAPR£V,NA«E1 ,NA«E2 
99999 FORNATC1 ',40(1H*)/ CAPSTAR F '^2A4/ V.’,A4,' REV.',A4 
5X/NETWORK - ',2A4,5X, 'STEP - DATA ENTRY') 

C INITIALIZE STEP LINKAGE CONTROL 

C 

C 

■C ALL STEPS SELECTED INITIALLY— NO DATA AVAILABLE 

C 


00006870 

00006880 

00006890 

00006900 

00006910 

00006920 

00006930 

00006940 

00006950 

0000696L' 

00006970 

00006980 

00006990 

00007000 

00007010 

00007020 

00007030 

00007040 

00007050 

00007060 

00007070 

00007030 

00007090 

000071 00 

00007110 

00007120 

00007130 

00007140 

00007150 

00007160 

00007170 

00007180 

00007190 

00007200 

00007210 

00007220 

00007230 

00007240 

00007250 

00007260 

00007270 

00007280 

00007290 

00007300 

00007310 

00007320 

00007330 

00007340 

00007350 

00007360 

00007370 

00007380 



DO 100 1=1,6 
STPLST(1)=1 
DALST(I)=0 
100 CONTINUE 
C 

C FORCE NEN RECORD AND GET NEXT COffflAND 
C 

110 CHAR=73 

111 CAU GTITErt(TYPE,ITEa,ITEM2,CAR0,CHAR) 
IF(TYPE.EQ.4) GO TO 111 

C 

C STRING? 

C 

115 IF(TYP£.EQ.2) GO TO 130 

C 

C NO—TRY EOF 

IF(TYPE.EQ.5) go to 120 
C 

C NOT ECF— SHOW ERROR 

C 

WRITE(PRNTR,9001> CARD 

GLENN=Q 

C0X=-6 

WRITECIEFIL6,8Q04) GLENN,C0X 
8004 F0R.MAT(2(112)) 

WRITE(IEFILE,8001) CARD 

9001 FORflAT('0*,73(A1),' RECORD PASSED') 

8001 F0RNAT(7j(Al)) 

GO TO 110 
120 CC;:"INUE 

C 

C EOF SEEN--QUIT 

URITE(PRNTR,9002) 

9002 FORMATCOEND OF INPUT DATA') 

GO TO 1000 

130 CONTINUE 

C 

C STRING FOUND— CHECK AGAINST COWHAND LIST 

C 

C 

C 'GATES TO. PATTERNS'? 

C 

IFdTEH.NE.CNTWDLCD) GO TO 140 
WRITE(PRNfR,9003) CARD 

9003 F0RWAT('0',72(A1)) 

LUCY=0 

C0X=-3 

WRITE(IEFkLE,8004) LUCY, COX 

CALL GTCELS(TYPE,ITEa,ITEM2,CARD,CHAR) 

0ALST(2)=1 

GO TO 115 


C0007390 
00007400 
00007410 
00007420 
00007430 
00007440 
00007450 
00007460 
00007470 
00007480 
00007490 
00007500 
0)007510 
00007520 
00007530 
00007540 
00007550 
00007560 
00007570 
00007580 
00007590 
OD0076DO 
00007610 
00007620 
00007630 
00007640 
00007650 
00007660 
00007670 
00007630 
00007690 
00007700 
0000771 0 
00007720 
00007730 
00007740 
00007750 
00007760 
00007770 
00007780 
00007790 
00007800 
00007810 
00007820 
00007830 
00007840 
00007850 
00007860 
00007870 
00007880 
00007890 
00007900 


M 


c 

c 

c 

'i4Q 


C 

C 

C 

150 


C 

C 

C 

160 

165 

166 
9004 


167 


9005 


C 

C 

C 

170 


C 

C 

C 

180 

182 


•NETS'? 

IF(ITEN.HE.CNTWDL(2)) go to 150 
WRITE(PRNTR^9003) CARD 
GLENN=0 
C0X=-4 

WRITE(IEFILE,8004) GLENN, COX 

CALL RDNETS (TYPE, ITE«,ITEH2, CARO, CHAR) 

DALST(1)=1 

GO TO 115 

•LINEAR ORDER'? 

IF(ITEH.NE.CNTWDL(3)) go TO 160 

yRITE(PRNTR,9003) CARO 

CALL GTORDCTYPE, ITEM, ITEH2, CARD, CHAR) 

0ALST(5)=1 
STPLST(1)=0 
STPLST(2)=0 
GO TO 115 

•NAME'? 

IF(ITEM.NE.CNTWDL(4)) GO TO 170 
CALL GTITEMCTYPE, ITEM, ITEM2, CARD, CHAR) 

GO T0C166, 167, 166, 165, 120), TYPE 
URITE(PRNTR,9004) CARD 

FORMATCOWARNING(MAIOI)— EXPECTED NETWORK NAME- 
S. 72(A1)//' IGNORED') 

GO TO 110 

NAHE1=ITEM 

NAME2=ITEM2 

WRITE(PRNTR,9005) NAME1,NA.HE2 
FORMATCONAME, ',2(A4)) 

FUTURE=0 

SH0CK=-1 

WRITE(IEFILE,8004) FUTURE, SHOCK 
UR1TE(IEFILE,8004) NAHE1,NAME2 
GO TO 110 


•DEBUG 


• <> 


1F(ITEH.NE.CNTW0L(5)) GO TO 180 
WRITE (PRNTR,9003) CARD 
DESUG=1 
GO TO 110 


'STAR SIZE 


I ') 


IF(ITEM.NE.CNTW0L(6)) GO TO 190 
CALL GTITEMCTYPE, ITEH,ITEM2, CARD, CHAR) 


00007910 
00007920 
00007930 
00007940 
00007950 
00007960 
00007970 
00007980 
00007990 
OOQOSOOO 
0000801 0 
00005020 
00008030 
00008040 
00008050 
00003060 
00003070 
00008080 
, 00008090 
00008100 
00008110 
00008120 
00008130 
000081 40 
00008150 
00008160 
00008170 
00008180 

-RECORD WAS: '//2OX,O00OS19O 

00008200 
00008210 
00008220 
00008230 
00008240 
00008250 
00008260 
00008270 
00008280 
00008290 
00008300 
00008310 
00008320 
00008330 
00008340 
00008350 
00008360 
, 00008370 
00008380 
00008390 
00008400 
00008410 
00008420 
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GO TO (183, 183^184, 182^120)^tYPE 

00008430 

183 

WRITE(PRNTR,9006) CARO 

00008440 

9006 

FOR«AT<'OWARNING(RAI02) —EXPECTED STAR SIZE— RECORD WAS:'/;20X, 

00008450 


& 72(A1)//' SIZE COmAKO IGNORED') 

00008460 


GO TO 110 

00008470 

184 

R1=ITE« 

00008480 

185 

CALL GTITEfl(TYPE>ITEN, ITEM, CARD, CHAR) 

00008490 


GO TO (183, 183, 186,185,120), nPE 

00008500 

186 

R0WS=R1 

00003510 


COLS=ITEH 

00008520 


WRITE(PRNTR,90Q7) ROWS, COLS 

00008530 

9007 

FORPATCOSTAR SIZE', 2(15)) 

00008540 


DEJA=0 

00008550 


VU=-2 

00008560 


WRITE(IEFILE,8004) OEJA,VU 

00008570 


WRITE (IEFILE,8004) ROWS,COLS 

00008580 


GO TO 110 

00008590 

C 


00008600 

C 

'STEP'? 

00008610 

C 


00008620 

190 

IF(ITE«.NE.CNTWDL(7)) GO TO 200 

00008630 


WRITE(PRNTR,9010) 

00008640 

9010 

FORHATCOSTEPS SELECTED') 

00008650 


DO 192 1=1,6 

00008660 


STPLST(I)=0 

00008670 

19Z 

CONTINUE 

00008680 

193 

CALL GTITEP(TYPE,ITEM,ITEM2, CARD, CHAR) 

00008690 


SO TO (194, 195,194, 111, 120), tYPE 

00008700 

194 

WRITE(PRNTR,9008) CARD 

00008710 

9008 

FORPAT('0WARNING(PAIO3)— EXPECTED STEP HANE—RECORD WAS:'//20X, 

00008720 


& 72(A1)//' ITEM IGNORED') 

00008730 


60 TO 193 

00008740 

195 

•mp=o 

00008750 


DO 196 1=1,6 

00008760 


IF(ITEM.EQ.STPNAPd)) TfiP=I 

00008770 

196 

CONTINUE 

00008780 


IF(TNP.NE.O) GO TO 197 

00008790 


WRITE(PRNTR,9009) ITEN,ITE«2 

00008800 

9009 

FORMAT COWARNING(«AI04)—£XPECTE6 StEP NAME— DATA WAS: ',2(A4), 

00008810 


& ' —IGNORED') 

00008820 


GO TO 193 

00008830 

197 

STPLST(THP)=1 

Q0Q08840 


WRITE(PRNTR,9011) ITEM,ITEH2 

00008850 

9011 

F0RMAT('0',20X,2(A4)) 

00008360 


GO TO 193 

00008870 

C 


00008880 

C 

•GO'? 

00008890 

C 


00008900 

200 

IF(ITEH.EQ.CNTWDL(8)) GO TO 1000 

00008910 

C 


00008920 

c 

COMMENT? 

00008930 

c 


00008940 
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IF(ITEH.NE.CST¥0L(9)) GO TO 210 
WRITE(PRNTR,9Q03) CARO 
GO TO 110 
C 

C 'FIND'? 

C 

210 IFCITEn.NE.CNTWOLdO)) GO TO 300 

WRITECPRNTR,9003)CARD 

211 CALL GTITE«(TYPE,ITEfl,ITE«2,CAR0^CHAR) 

GO TO (220^220^215,211J20),nPE 

215 MAXSOL=ITEN 

GO TO 110 

220 WRITE(PRNTR,9040) ITEH^ITEH2 

9040 FORHATCOWARNINGCHAIOS) —EXPECTED MLWERIC FIELD 

S 2(A4)/ — COWAND IGNORED') 

GO TO 110 
C 

C 'IRPROVE'? 

C 

300 IFdTEM.NE.CNTWDLCID) GO TO 400 

yRITE(PRNTR,9003) CARO 

301 CALL GTITEM(TYPE,ITEN,ITEfl2, CARD, CHAR) 

GO TO (220,220,310,301, 120), TYPE 

310 NFLSAV=ITEM 

GO TO 110 
400 CONTINUE 

C 

C 'NEIGHBORHOOD'? 

C 

500 IF(ITEH.NE.CNTHDL(13)) GO TO 900 

HRITE(PRNTR,9D03) CARD 

501 CALL GTITEM(TYPE,ITEH,ITEN2,CARD,CHAR) 

GO TO (220,220, 510, 501,120), nPE 

510 R1=ITEN 

511 CALL GTITE«(TYPE,ITEM,ITEH2,CARD,CHAR) 

GO TO(220, 220, 520, 511, 120), TYPE 

520 RN=R1 

CN=ITEM 
GO TO 110 

900 HRITE(PRNTR,9001) CARD 
PING=0 
P0NG=>-6 

WRITE(IEFILE,8004) PING,PONG 
HRITE(IEFILE,8001) CARO 
GO TO 110 
1000 CONTINUE 
C 
C 

C*****»»*»***» MAIN CONTROL ROUTINE *************** 

C 

C 

C CHECK FOR CELL & NET DEFINITION 


00008950 
00008960 
00008970 
00008980 
00008990 
00009000 
00009010 
00009020 
00009030 
00009040 
00009050 
00009060 
00009070 
DATA WAS: ',00009080 
00009090 
00009100 
00009110 
00009120 
00009130 
00009140 
00009150 
00009160 
00009170 
00009180 
00009190 
00009200 
00009210 
00009220 
00009230 
00009240 
00009250 
00009260 
00009270 
00009280 
00009290 
00009300 
00009310 
00009320 
00009330 
00009340 
00009350 
00009360 
00009370 
00009380 
00009390 
00009400 
00009410 
00009420 
00009430 
00009440 
00009450 
00009460 
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c 




00009470 


KING=0 



00009480 


K0NG=-7 


• 

00009490 


WRITE(IEF1LE^8004) KING^KONG 



00009500 


ENDFILE lEFILE 



00009510 


IF(DALST(1).NE.O) GO TO 1010 



00009520 


WRITE (PRNTR,9020) 



00009530 

9020 

FORMAT ('OERROR(IIAIOI) —NET DEFINITION 

MISSING') 

00009540 


STOP 



00009550 

1010 

IF(DALST(2) .NE.O) GO TO 1020 



00009560 


WRITE(PRNTR,9021) 



00009570 

9021 

FORMAT('OERROR(NAI02) —CELL DEFINITION 

HISSING'} 

00009580 


STOP 



00009590 

C 




00009600 

C 

DO INPUT DATA X-CHECKING 



00009610 

c 




00009620 

1020 

CALL XCHECK(DALST(5)) 



00009630 

C 




00009640 

C 

CLUSTERING SELECTED? 



00009650 

c 




00009660 


IF(STPLST(1).EQ.1) GO TO 1200 



00009670 

c 




00009680 

c 

NO— MAKE SURE LINEAR ORDER IS IN 



00009690 

c 




00009700 


IF(DALST(5).NE.O) GO TO 1030 



00009710 


WRITE(PRNTR.9022) 



00009720 

9022 

F0RMAT('QWARNING(MAI06) —CLUSTERING STEP 

NOT SELECTED BUT NO'^ 

00009730 


& • LINEAR ORDER ENTERED'//' PROCEEDING 

AT 

aUSTERING', 

00009740 


& ' STEP') 



00009750 


GO TO 1200 



00009760 

C 




00009770 

C 

FORM CELL -NETS (NO aUSTERS) 



00009780 

C 




00009790 

1030 

CALL CELNET(O) 



00009800 


DALST(4)=1 



00009810 


GO TO 1300 



00009820 

C 




00009830 

C 

DO CLUSTERING STEP 



00009840 

C 




00009850 

1200 

CALL CLSTER 



00009860 


DALST(3)=1 



00009870 

C 




00009830 

C 

FORM CELL -NETS (WITH aUSTERS) 



00009890 

c 




00009900 


CALL CELNET(I) 



00009910 


DALST(4)=2 



00009920 

c 




00009930 

c 

FORM LINEAR ORDER 



00009940 

c 




00009950 


CALL LINEUP 



00009960 


DALST(5)=1 



00009970 

c 




00009980 
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C 

SHOW WIRECROSS OUTPUT IF SELECTED 

00009990 

c 


0001 0000 

1300 

IF<STPLST(3),EQ.1) CALL WIRCRS 

00010010 

c 


00010020 

c 

BUILD PASS FILE FOR PART B 

00010030 

c 


00010040 


CALL PASS (ROWS, COLS, NFLSAV^NPISAV^MAXSOL^RN^CN) 

00010050 

c 


00010060 

2000 

WRITE(PRNTR,9030) 

00010070 

9030 

F0RMATC1N0RMAL CAPSTAR PART 2A TERMINATION'//' 

RIM PART 2B TO CON00010080 


8TINUE') 

00010090 


STOP 

00010100 


END 

00010110 


SUBROUTINE GTITEM(TYPE,ITEM,ITEM2,CARD,CHAR) 

00010120 

C 


00010130 



00010140 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 

c 

c 

c 


GTITEM — READS UNFORMATTED FIELDS FROM CARDS. 

FIELDS ARE TERMINATED BY COlWA. 

NUMERIC FIELDS ALSO TERMINATED BY SP. 

FIRST 4 COLUMNS OF PHYS. RECORD BLANK INDIC 
ATES CONTINUED LOGICAL RECORD. NUMERIC 
ITEMS (INTEGER ONLY) RETURNED IN ITEM. 

FIRST 8 CHARACTERS OF STRINGS RETURNED 
IN ITEM AND ITEM2. CARD IMAGE STORED IN 
ARRAY CARD. 

ITEM TYPE CONTAINED IN HPE: 

2 — STRING 

3 — INTEGER 

4 — END OF LOGICAL RECORD 

5 — END OF DECK 


IMPLICIT INTEGER(A-Z) 

DEFINE CHARACTERS UE WANT TO LOOK FOR 
COMMON /GLBL/ PRNTR,R0R,XXX(14) 

'/^MINUS/'- 
•/I 


INTEGER CARD(73),A/'A '/,Z/'Z 

& BLANK/' '/^COMMA/', 

PI? I ft I lA I 1C 

INTEGER^ENDFLG/O/ 


'/,DIG(10)/'0 
'/6 '/7 


•/9 


CHECK FOR PENDING END OF DECK 


00010150 

00010160 

00010170 

00010180 

00010190 

00010200 

00010210 

00010220 

00010230 

00010240 

00010250 

00010260 

00010270 

00010280 

00010290 

00010300 

00010310 

00010320 

00010330 

00010340 

00010350 

00010360 

00010370 

00010380 

00010390 

00010400 

00010410 

00010420 

00010430 

00010440 

00010450 

00010460 

00010470 

00010480 

00010490 

00010500 
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C 

IFCENDFLS.EQ.O ) 60 TO 10 
nPE *5 
GO TO 20000 
C 
C 

C CHECK FOR END OF RECORD 

C 

C 

10 IF(CHAR.LE.72) 60 TO 1200 

C 

C 

C READ NEXT CARO INTO ARRAY CARD 

C 

C 

READ(ROR,1000,END=100QO) (CARD(I) ,1*1 ^72) 

1000 F0RNAT(72(A1)) 

C 

C INITIALIZE POINTER INTO CARD 

C 

CHAR=1 

C 

C 

C CHECK FOR CONTINUED RECORD 

C 

DO 1100 1=1,4 

IF(CARD(I).EQ.BLANK) 60 TO 1100 
C 

C NOT CONTINUED— RETURN END Of RECORD 
C 

TYPE=4 
GO TO 20000 
1100 CONTINUE 
CHAR=5 
C 
C 

C ARE WE LOOKING AT THE START OF A STRING? 

C 

C 

1200 CONTINUE 

IF((CARD(CHAR).LT.A).0R.(CARD<CHAR).6T.Z)} GO TO 2000 
C 

C STRIN6 START FOUND— RESET PASS FUG 
C 

IFU6=0 

ITEN2»8UNK 

C 

C SET UP ITEM FOR JAWING OPERATION 
C 

1505 CONTINUE 

ITEH=CARD(CHAR) 


00010510 
00010520 
00010530 
00010540 
00010550 
00010560 
00010570 
00010580 
00010590 
00010600 
00010610 
00010620 
00010630 
00010640 
00010650 
00010660 
00010670 
00010680 
00010690 
00010700 
00010710 
00010720 
00010730 
0001 07 ^^ 
00010750 
00010760 
00010770 
00010780 
00010790 
00010800 
00010810 
00010820 
00010830 
00010840 
00010850 
00010860 
00010870 
00010880 
00010890 
00010900 
00010910 
00010920 
00010930 
00010940 
00010950 
00010960 
00010970 
00010980 
00010990 
00011000 
00011010 
00011020 



U6 


i 

1 


{ 

f 

I 



CHARoCHAR-t-1 

C 

C JAH FOUR CHARACTERS INTO TERN 
C 

DO 1515 1=1^3 
CNT=4-I 
C 

C CHECK FOR FIELD TERMINATION 
C 

IF((CARD(CHAR).EQ. COMMA). OR. (CHAR. EQ. 71)) GO TO 1520 
CALL JAM(ITEM,CARD(CHAR)^CNT) 

CHAR=CHAR+1 
1515 CONTINUE 
C 

C IF ONLY ONE PASS THROUGH THIS SECTION MADE^ DO IT 
C AGAIN — SAVE ITEM IN TEMP 

C 

IF(IFLAG.NE.O) GO TO 1510 

IF((CARD(CHAR).EQ.C0ffflA).0R.(CHAR.EQ.71)) 60 TO 1520 
IFLA6=1 
TEMP=ITEM- 
GO TO 1505 
C 

C FIRST 8 CHARACTERS WERE JAMMED, BUT STRING FIELD 
C END HASN'T BEEN FOUND— EAT CHARACTERS UNTIL 

C COMMA OR END OF CARD SEEN 

C 

1510 CHAR=CHAR+1 

IF((CARD(CHAR).NE. COMMA). AND. (CHAR. LT. 71)) GO TO 1510 
C 

C SET TYPE NUMBER AND aEAN UP FOR STRING EXIT 
C 

1520 CONTINUE 

CHAR=CHAR+1 

TYPE=2 

IF(IFLAG.EQ.O) GO TO 20000 
ITEM2=ITBM 
ITEM=TEMP 
GO TO 20000 
C 
C 

C CHECK FOR NUMERIC FIELD 

C 

C 

2000 IF( (CARD (CHAR). NE. MINUS). AND. ((CARD(CHAR).LT.DIG(D) 

S .OR.(CARD(CHAR).GT.OIG(10)))) GO TO 2500 
C 

c 

C NUMERIC FIELD FOUND— INITIALIZE 

C 

C 

TYPE=3 


00011030 

00011040 

00011050 

00011060 

00011070 

00011080 

00011090 

00011100 

00011110 

00011120 

00011130 

00011140 

00011150 

00011160 

00011170 

00011180 

00011190 

00011200 

00011210 

00011220 

00011230 

00011240 

00011250 

00011260 

00011270 

00011280 

00011290 

00011300 

00011310 

00011320 

00011330 

00011340 

0C011350 

00011360 

00011370 

00011380 

0001^90 

00011400 

00011410 

00011420 

00011430 

00011440 

00011450 

00011460 

00011470 

00011480 

00011490 

00011500 

00011510 

00011520 

00011530 

00011540 
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HIFLGaO 

00011550 


ITEHaQ 

00011560 

c 


00011570 

c 

CHECK FOR NEGATIVE NUKBER 

00011580 

c 


00011590 


IF<CARD(CHAR).NE. MINUS) GO TO 2050 

00011600 


HIFLSal 

00011610 

2200 

CHAR=CHAR+1 

00011620 

C 


00011630 

C 

AS LONG AS OIGITS ARE SEEN^ KEEP MULTIPLYING 

00011640 

C 

ITEM BY TEN AND ADDING NEW DIGIT 

00011650 

C 


00011660 

2050 

DO 2100 1=1,10 

00011670 


IF(CARD(CHAR).NE.DI6(I)) GO TO 2100 

00011680 


ITEM=ITEM*1 0+1-1 

00011690 


SO TO 2200 

00011700 

2100 

CONTINUE 

00011710 

C 


00011720 

c 

NHEN OUT OF DIGITS, SET INSULT SIGN AND EXIT 

00011730 

c 


0001 174U 


IF(MIFLG.EQ.I) ITEM=-ITEM 

00011750 


GO TO 20000 

00011760 

c 


00011770 

c 


00011780 

c 

IF NOT NUMERIC OR STRING^ IGNORE 

00011790 

c 


00011800 

c 


00011810 

2500 

CONTINUE 

00011820 


CHAR=CHAR+1 

00011830 


SO TO 10 

00011840 

c 


00011850 

C 

END OF DECK SEEN 

00011860 

c 


00011870 

c 


00011880 

10000 

TYPE=4 

00011890 


ENDFLS=1 

00011900 

c 


00011910 

c 


00011920 

c 

NORMAL ROUTINE EXIT 

00011930 

c 


00011940 

c 


00011950 

20000 

RETURN 

00011960 


END 

00011970 


SUBROUTINE JAM(ITEM,CAR,CNT) 

00011980 

c 


00011990 

c 


00012000 

c 


00012010 


tr****** JAM — LOADS CHARACTER IN INTEGER 

00012020 

c 

PASSED INTO NORMAL A4 INTEGER 

00012030 

c 

FORMAT 

00012040 

c 


00012050 

c 


00012060 
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c 


00012070 


IMPLICIT INTEGER (A-Z) 

00012080 


DO 100 Ja1,CNT 

00012090 


ITEM=ITEM/256 

00012100 

100 

CONTINUE 

00012110 


IFCITEM.lt. 0) IT£M=ITEM-1 

00012120 


DO 200 J=1,CNT 

00012130 


ITE«=ITEH*256 

00012140 

200 

CONTINUE 

00012150 


D=4-CNT 

00012160 


C=CAR 

00012170 


DO 300 J=1,D 

00012180 


C=C/256 

00012190 

300 

CONTINUE 

00012200 


IF(C.LT.O) C=C-1 

00012210 


ITEM=ITEM+C 

00012220 


IFCC.LT.O) IT£M=ITEM+256**CNT 

00012230 


RETURN 

00012240 


END 

00012250 


SUBROUTINE XCHECK(LOEFLG) 

00012260 

c 


00012270 

C**********************-**!^**************** ********* 

00012280 

c 


00012290 

c 


00012300 

c 

XCHECK— PERFORMS CROSS-CHECK TO DETECT 

Q0Q1231Q 

c 

ERRORS IN INPUT DATA 

00012320 

c 


00012330 

c 


00012340 

nnni 


UwUl 

c 


00012360 


IMPLICIT INTEGERCA-Y) 

00012370 


COMMON /GL8L/ PRNTR,RDR,NCELLS,NNETS,NPADS^DEBUG,MXCELS,XXX(9) 

00012380 


COMMON /LINDTA/ L(IOOO) 

00012390 


COMMON /NETDTA/ NETS (3000) ^NIDCI 000) ^PADCI 00) ,NETNOS(500) 

00012400 


COMMON TEMPdOOO) 

00012410 

c 


00012420 

c 

PRINT HEADER 

00012430 

c 


00012440 


WRITE(PRNTR,100) 

00012450 

100 

F0RMAT('0*,12X,'DATA CROSS-CHECK INITIATED') 

00012460 


EFLG=0 

00012470 

c 


00012480 

c 

CLEAR TEMP ARRAY 

00012490 

c 


00012500 


DO 110 I=1,NXCELS 

00012510 


TEMP(I)=0 

00012520 

110 

CONTINUE 

00012530 

c 


00012540 

c 

CHECK FOR UNDEFINED CELLS 

00012550 

c 


00012560 


NET=1 

00012570 


NETPNT=1 

00012580 



c 

c 

c 

120 


125 

130 

C 

C 

c 

140 

150 

C 

C 

C 


155 

C 

C 

C 

160 



210 


220 

C 

C 

C 

C 

C 

221 


NEXT LOC. IN NETS ARRAY 

TRY=NETS(NETPNT) 

IFCTRY.NE.O) GO TO 130 
NET=NET+1 
N£TPNT=NETPNT+1 
GO TO 120 

IF(TRY.EQ.-I) GO TO 200 

GOT A CELL SEE IF THERE'S A WIDTH 

IF (HID(TRY).EQ.O) GO TO 150 

TEHP(TRY)=1 

GO TO 125 

CONTINUE 

NO WIDTH— CHECK FOR PAD 

DO 155 I=1,NPA0S 
IF(PADCI).EQ.TRY) GO TO 140 
CONTINUE 

NOT A PAD — FLAG AN ERROR 
HRITE(PRNTR,160) TRY,NETNOS(NET) 

FORHAT('0',20X/ERROR(XCH01> —CELL ',14/ IN NIT ',14,' 
&F1ED'? 

EFLS=1 
GO TO 125 
CONTINUE 

CHECK FOR UNCONNECTED CELLS 
1=1 

CONTINUE 

IF((WIOa).NE.O).AND.(TEnP(I).EQ.O)) WRITE(PRNTR,210) I 
IF((HID(I).NE.O).AND.(TEHP(I).Ea.O)) EFLG*1 
F0RNAT('b',20X,'ERR0R(XCH02) —CELL */I4,' IN NO NETS') 
1 = 1+1 

*'^<I.LT.HXCELS) GO TO 250 
IF(NPADS.EQ,0> 60 TO 221 
DO 220 I=1,NPADS 

IF(TEHP(PAD(I)),EQ.O) HRIT1(PRNTR,210) PAO(I) 
IF(TEMP(PAD(I)/,£Q.O) EFLG=1 
CONTINUE 

ALL DONE 

LINEAR ORDER ENTERED? 

IF(LOEFLG.EQ.O) GO TO 226 


00012590 
00012600 
00012610 
00012620 
00012630 
00012640 
00012650 
00012660 
00012670 
00012680 
00012690 
00012700 
00012710 
00012720 
00012730 
00012740 
00012750 
00012760 
00012770 
00012780 
00012790 
00012800 
00012810 
00012820 
00012830 
00012840 
NOT SPECI00012850 
00012860 
00012870 
00012880 
00012890 
00012900 
00012910 
00012920 
00012930 
00012940 
00012950 
00012960 
00012970 
00012980 
00012990 
00013000 
00013010 
00013020 
00013030 
00013040 
00013050 
00013060 
00013070 
00013080 
00013090 
00013100 


so 


c 

c 

c 


7000 

222 

226 


300 

500 

510 


C 

C 

C 

c 

c 

c 


c 

c 

c 

c 

c 

c 


YES ~ MAKE SURE CELLS DEFINED 

DO 222 lal^NXCELS 
IF<L(I).EQ.O) GO TO 226 
IFCTEMP(L(I)).ME.Q) go TO 222 
WRITECPRNTR^7000) L(I) 

F0RHATC0ERR0RCXCH03) — CaL'/U^' IN LINEAR ORDER NOT DEFINED' 
EFLGsl 
CONTINUE 
CONTINUE 

IF(EFLG.EQ.O) GO TO 500 
«RITE(PRNTR,3Q0) 

FORNATC 'O' ^'EXECUTION TERMINATED DUE TO CROSS-CHECK ERRORS') 

STOP 

WRITE(PRNTR,510) 

FORMAT('0'^12X/DATA CROSS-CHECK COMPLETED') 

RETURN 

END 

SUBROUTINE CLSTER 


CLUSTERING ROUTINE 


IMPLICIT INTEGER(A-Y) 

COMMON TEMP (100), BANK(100),RESC1000), 
& NC(500),PC(500),BC(3000),CELL(1000), 
S NN(1000),PN(1000),BN<3000),W(1000) 
&,QQ(.O1),N8P(1700) 

DEFINE COMMON DATA AREAS 


aOBAL COMMON 

COMMON /GLBL/ PRNTR,RDR,NCaLS,NNETS,NPADS, DEBUG 
S,MXCELS,MXNETS,MXCLNT,NXCLUS,MXNTSZ^MXPADS,MXNTCL 
S ,MXROWS,HXCOLS,MXDFSZ 

NET DATA COMMON 

COMMON /NETDTA/ NETS(3000),WI0(1000)^PAD(100),NETN0S(500) 
CLUSTER DATA COMMON 

COMMON /CLSDTA/ CHR(700,3),TRACE<700,2), TRACK 


00013110 
00013120 
00013130 
00013UO 
00013150 
00013160 
00013170 
) 0001 31 80 
00013190 
00013200 
00013210 
00013220 
00013230 
00013240 
00013250 
00013260 
00013270 
00013280 
00013290 
00013300 
00013310 
00013320 
00013330 
00013340 
00013350 
00013360 
00013370 
00013380 
00013390 
00013400 
00013410 
00013420 
00013430 
00013440 
00013450 
00013460 
00013470 
00013480 
00013490 
00013500 
00013510 
00013520 
00013530 
00013540 
00013550 
00013560 
00013570 
00013580 
00013590 
00013600 
00013610 
00013620 
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I 


c 


00013630 


HEADER COHMOH 

00013640 

c 


00013650 


COmON /HEADER/ CAPMC1^CAPflC2^CAPVER«CAPfiEV,NAflE1,NAIIE2 

00013660 

c 


00013670 

c 


0001 3660 

c 

PRINT HEADER 

00013690 

c 


00013700 


HRITE(PRNTR,99999)CAPRC1,CAPHC2^CAPVER,CAPREV^NAME1^NAHE2 

00013710 

99999 

F0RHATC1 '^40(1H*)/ CAPSTAR F *^2A4,‘ /.'/A4/ REV.'/A4^ 

00013720 


& 5X/NETW0RK - ' ^2A4,5X^ 'STEP - CLUSTERIN6') 

00013730 

C 


00013740 

c 

SET .1^ LOCAL DATA AREAS 

00013750 

c 


00013760 

c 


00013770 


FLG1=0 

00013780 


IX=1 

00013790 


TRACK=1 

00013800 


DO 40 I»1,KXNETS 

00013810 


NC(n=0 

00013820 


PC(I)=0 

00013830 

4C 

CONTINUE 

00013840 


DO 42 lal^llXCELS 

00013850 


W(I)=0 

00013860 

42 

CONTINUE 

00013870 

C 


00013880 

c 

ZERO BC ARRAY 

00013890 


DO 43 I=1,HXCLNT 

00013700 


BC(I>=0 

00013910 

43 

CONTINUE 

00013920 

C 

• 

00013930 


R=0 

00013940 


PS=1 

00013950 


NfrrPNT=i 

00013960 


IF(DEBUG.EQ.I) WRITE (PRNTRJ002) 

00013970 

1002 

FORMAT CO',' NET ',2X, 'SIZE ',2X, ’CELLS') 

00013980 

C 


00013990 

C 

ZERO TEHP,BANK ARRAYS 

00014000 

1 

DO 5 I*1,HXNTSZ 

00014010 


TEMP(I)=0 

00014020 


BANK(I)»0 

00014030 

5 

CONTINUE 

00014040 

C 


00014050 

c 

RETRIEVE NET FRM INPUT ARRAY 

00014060 

c 


00014070 


I»0 

00014080 

14 

I»I*1 

00014090 


IF(I.LE.HXNTSZ) GO TO 6001 

00014100 


WRITE<PRNTR,7001) 

00014110 

7001 

FORMATCOERROR(CLSOI) —MAX NET SIZE EXCEEDED FOR TEMP ARRAY') 

00014120 


STOP 

00014130 

6001 

IF(NETPNT.LE.fTXCLNT) GO TO 6002 

00014140 


***^V*- 
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yRITE(PRNTR,7002) 



00014150 

7002 

F0RflAT(*0ERRQR(CLS02) --MISSINS 

END 

MARKER IN NET ARRAY') 

00014160 


STOP 


• 

00014170 

6002 

TEHP{I>«=NETS(NETPNT) 



00014180 


NETPNT=NETPNT+1 



00014190 


IF(TE«P(I).E9.-1)G0 TO 37 



00014200 


IF(TEHP<1).N£.0)GO TO 14 



00014210 

C 




00014220 

C 

ARRANGES ELEBENTS IN EACH NET IN ORDER 

00014230 


DO 25 Jal^HXNTSZ 


- 

00014240 


N=J+1 



00014250 


STOR=TEHP(J) 



00014260 


IF(STOR.EQ.O)GO TO 9000 



00014270 


DO 20 I=N,«XNTSZ 



00014280 


IF(TENP(I) .EQ.O)GO TO 25 



00014290 


IFCSTOR.LE.TEHP(I))GO TO 20 



00014300 


TEHP(J)=TEHP(I) 



00014310 


TENP(I)=STOR 



00014320 

20 

CONTINUE 



00014330 

25 

CONTINUE 



00014340 

C 




00014350 

C 

DELETES THE DOUBLE ELEMENT IN 

EACH 

NET LINE AND 

00014360 

C 

STORES IN BANK ARRAY. 



00014370 

9000 

CONTINUE 



00014380 


N=0 



00014390 

C 




00014400 

C 

ARRANGE BANK SAME AS TEHP^ BUT 

DELETE REPEATED aEMENTS 

00014410 


DO 30 I=1,MXNTSZ 



00014420 


GG61=TEHP(I) 



00014430 


IF(GGG1.EQ.0)G0 TO 34 



00014440 


N=N+1 



00014450 


BANK(N)=GGG1 



00014460 


1F(GGG1.EQ.TEMP(I+1)) N=N-1 



00014470 

30 

CONTINUE 



00014480 

C 




00014490 

34 

R=R+1 



00014500 

C 

FORM NC, PC, BC ARRAYS 



00014510 

C 




00014520 

C**nnrk takes PLACE OF P0INT1 SUB *»***»****»** 

00014530 

C 




00014540 


NC(R)=N 



00014550 


PC(R)=PS 



00014560 


0018=NC(R) 



00014570 


00 50 1=1,0018 



00014580 


BC(PS+(I-1))=BANK<I) 



00014590 

50 

CONTINUE 



00014600 


IFCDEBUG.EQ.Oi GO TO 100 



00014610 


yRITE<PRNTR,1003) NETNOS(R),N,<0C(PS+(I-1)), 1=1, 0018) 

00014620 

1003 

FORNAT<*0',I4,2X,I4,2X,24<I4,1X)) 


00014630 

100 

PS=PS+0018 



00014640 


GO TO 1 



00014650 

37 

CONTINUE 



00014660 
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C 

C BUILD NBP (NUItBER BURIED PADS) ARRAY 
LNC1=«XCELS+«XCLUS 
DO 500 I«1,LNC1 
NBP(I)=0 
SQQ CONTINUE 

DO 510 I=1,NPADS 
IF(PAD(I>.EQ.O) 60 TO 520 
N8P{PAD(I))=*1 
510 CONTINUE 
520 CONTINUE 

CALL P0INT2(FLG1) 

CALL REORG(FLSI^IX) 

MRITE(PRNTR,8002) 

8002 F0RNAT(’0',20X, 'NORMAL aUSTERING STEP TERMINATION') 

RETURN 

END 

SUBROUTINE P0INT2(FLG1) 

C 

C 

C 

C 

c SUBROUTINE P0INT2 **>**»**>< * 

C 

c 

c 

c MAKES ARRYS CELL, NUMBER OF NETS(NN), POINTER FOR NET(PN) 

C & ARRAY CONTAINING NETS(BN) 

C 

C 

C 

IMPLICIT INTE6ERCA-Y) 

COMMON TEMP(100),BANK(100),REG(1000),NC(500), 

S PC(5GO),8C(3000),CELL(1000),NN(1000),PN(1000),BN{300C),«(1000> 
8,QQf101),NBP(1700) 

COMMON /6LBL/ PRNTR,RDR,NCELLS,NNETS,NPADS, DEBUG 
8 ,MXCELS,MXNETS,MXCLNT,MXaUS,MXNTSZ,MXPADS,MXNTCL 
8 ,MXROWS,MXCOLS,MXDFSZ 

COMMON /NETDTA/ NETS(3QIK}),WID<1000),PAD(1(K}},ltETtK)S(500) 

IN=1 

C 

C ZERO NN, PN, ARRAYS 

DO 86 I=1,MXCELS 
CELL(I)=0 
NN(I)=0 
PN<I)»0 
86 CONTINUE 

DO 91 I=1,MXCLNT 
BN(I)=0 
91 CONTINUE 

C 

C IF NCCIN) = 1 THEN NET IS GONE INTO PARTITION 


OOOU670 

00014680 

00014690 

00014700 

00014710 

00014720 

00014730 

00014740 

00014750 

00014760 

00014770 

00014780 

00014790 

00014800 

00014810 

00014820 

00014830 

00014840 

00014850 

00014860 

00014870 

00014880 

00014890 

00014900 

00014910 

00014920 

00014930 

00014940 

00014950 

00014960 

00014970 

00014980 

00014990 

00015000 

00015010 

00015020 

00015030 

00015040 

00015050 

00015060 

00015070 

00015080 

00015090 

00015100 

00015110 

00015120 

00015130 

00015140 

00015150 

00015160 

00015170 

00015180 


S4 


c 


00015190 


IN=IN-1 

00015200 

79 

IN=IN+1 

00015210 


IF(IN.LE.HXNETS) 60 TO 6000 

00015220 


WRITE (PRNTR/7001) 

00015230 

7001 

FORNATCOERROR(POIOI) — NZSSIN6 END HARKER IN NC ARRAY') 

00015240 


STOP 

00015250 

6000 

IF(NC(IN).EQ.1) 60 TO 79 

00015260 


18=1 

00015270 

C 

IF PC(IN)=0 THEN END OF FILE 

00015230 


0019=PCCIN) 

00015290 


IF(0019.EQ.O) 60 TO 83 

00015300 


0C1=0019^^C(IN)-1 

00015310 


DO 84 IJ=0019^001 

00015320 


BANKdB. BC(IJ) 

00015330 


IB^^IB-M 

00015340 

84 

CONTINUE 

00015350 


BANXaB)=0 

00015360 

C 


00015370 

c ***** hakes cell ARRY and NUUBER of nets located IN(NN)** 

00015380 


DO 75 I =1,NXNTSZ 

00015390 


JJ=1 

00015400 


IF(9ANK(I).EQ.O) 60 TO 79 

00015410 

820 

IF(CELL(JJ).EQ.8ANK(D) 60 TO 68 

00015420 


IF(CELLUJ).EQ.O) 60 TO 67 

00015430 


JJ=JJ+1 

00015440 


IF(JJ.LE.NXCELS) 60 TO 820 

00015450 


WRITE(PRNTR,7002) 

00015460 

7002 

FOR«AT('OERROR(POI02) —OUT OF SPACE IN CELL ARRAY') 

00015470 


STOP 

00015480 

68 

NN(JJ)=NN(JJ)+1 

00015490 


60 TO 75 

00015500 

67 

IF(FLGI.NE.I) H(JJ)a(BANK(I)*10**6)+WI0(BANK(I)) 

00015510 


CELL(JJ)=8ANK(I) 

00015520 


NN(JJ)=1 

00015530 

75 

CONTINUE 

00015540 


HRITE(PRNTR,8003) 

00015550 

8003 

FORNATC ERR0R<P0I03) HISSING END BARKER IN NET ARRAY') 

00015560 


STOP 

00015570 

C 


00015580 

c **^h»*^^hakES ARRYS PNCPOINTER for NETS) AND BANK FOR NETS. 

00015590 

c 


00015600 

C 


00015610 

83 

FL61=»1 

00015620 


PNC1)=1 

00015630 


DO 100 I=2,NXCELS 

00015640 


IF(CaLd).EQ.O) GO TO 110 

00015650 


PNd)aPNd-1)+NNd-1) 

00015660 

100 

CONTINUE 

00015670 

iia 

NET’1 

00015680 


L»1 

00015690 

111 

IF<NC<NET).EQ.1) GO TO 131 

00015700 
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002D=PC(L) 

IF(0020.EQ.0)G0 TO 135 
002=0020+NC(L)-1 
DO 130 1=0020^002 
G6G1=8C(I) 

IF(GGSI.EQ.O) SO TO 135 
DO 120 J=1,«XCELS 
IF(CELL(J).EQ.GG61) SO TO 115 
120 CONTINUE 

WRITE(PRNTR,8004) G6G1 
8004 FOlWATC ERR0R<P0I04) —CELL */l5,' 
STOP 

115 0021=PN(J) 

003=0021+NN(J)-1 
DO 127 K=0021,003 


00015710 

00015720 

00015730 

00015740 

00015750 

00015760 

00015770 

00015780 

00015790 

00015800 

NOT IN CELL ARRAY*) 00015810 

00015820 
00015830 
00015840 
00015850 
00015860 
00015870 
00015880 
00015890 
00015900 
00015910 
00015920 
00015930 
00015940 
00015950 
00015960 
00015970 
00015980 
00015990 
00016000 
00016010 
00016020 
00016030 
00016040 
00016050 
00016060 
00016070 
00016080 
00016090 
00016100 
00016110 
00016120 
00016130 
00016140 
00016150 
00016160 
00016170 
00016180 
00016190 
00016200 
0001621C 
0001622, 


127 
3005 

128 

130 

131 

135 


C 

C 

C 

C 

C 

c 

c 


6001 


6002 

4 


IF(BN(K).EQ.O) GO TO 128 
CONTINUE 

WRITE (PRNTR^8005) 

FORHATC ERR0R(POI05) — HO SPACE IN BN ARRAY') 
STOP 

BN(K)=NET 
CONTINUE 
NET=NET+1 
L=L+1 
GO TO 111 
RETURN 
END 

SUBROUTINE RE0RGCFLG1 ,IX) 


SUBROUTINE REORG 


IHPLICIT INTEGERCA-Y) 

COfWON TEHPPP(100),BANX(100),REG(1000),NC(500), 

& PC(5OO),0C(3OOO)^CELL(1OOO)^NN<1OOO)^PN<1OOO),BN(3OOO)^ 

& H(1000)^TEHP(101) 

&,N8P(1700) 

COPWON /CLSOTA/ CHR(700^3),TRACE<700^2), TRACK 
COmON /GLBL/ PRNTR^RDR^NCELLS^MIETS/NPADS^DEBUS 
& ,HXCELS,HXNETS,HXCLNT,HXCLUS^HXNTSZ,I«PADS,H)(NTCL 
& ,HXROWS,FIXCOLS,HXDFSZ 

COPWON /NETDTA/ NETS (3000), HID (1000), PAD (1 00), HETHOS (500) 
IF(OEBUS.EQ.O) GO TO 5 
WRITE (PRNTR, 6001) 

F0RHATC1CELL *,5X,'NN ',5X,'H *) 

DO 4 I=1,MXCELS 

HRITE(PRNTR,6002) CELL(I),POJ(I),W(I) 

FORPIATC *,2(I5,5X),I9) 

CONTINUE 
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5 CONTINUE 

Q OOQIul^O 

C0«P=1000 00016250 

FLS1=1 00016260 

C 00016270 

C FIND TOTAL WIDTH (H9) AND TOTAL STARTING HETAL (2H9) 00016280 

r 00016290 

y9=0 00016300 

ZH9=0. 00016310 

00 100 I=1,HXCELS 00016320 

IF(CELLd).EQ.O) GO TO 200 00016330 

■:c=y:o(CELL(i)) oooi63AO 

y9=y9^yC 00016350 

ZN9=ZiT5+(SQRT(FL0AT(HC))*FL0AT(NNCI))) 00016360 

100 CONTlNiin 00016370 

200 ZCD=ZN9/FL0AT(H9) 00016380 

WRITE(PRNTR^7Q01) W9,ZH9,ZCD 00016390 

7001 F0RMAT('Q',12X/CHIP AREA='^I5/ TOTAL HETAL ='^F6.0^ 00016400 

8 ' CHIP DENSITY =',F5.1) 00016410 

^ 00016420 

C ALL CELLS aUSTERED?— IF SO, EXIT THIS PORTION 00016430 

1=0 00016440 

NUMCLS=0 00016450 

205 1=1+1 00016460 

IFCCELL(I).EQ.O) GO TO 432 00016470 

IFCCELLCD.LT. 1000. AND. HID(CaL(I)).EQ.O) GO TO 205 00016480 

NUNCLS=NUHCLS+1 00016490 

IF(NUMaS.EQ.I) GO TO 205 ^0]6500 

00016510 

C FIND 9IALLEST CELL (SHLEST) 00016520 

(. 00016530 

SNLEST=0 00016540 

S«uyiD=10«6 00016550 

pyjsQ 00016560 

1=1 00016570 

C 00016580 

C IF END OF W ARRAY, NE'RE DONE FINDING SHALLEST 00016590 

C 00016600 

201 IF(W(I).EQ.O) GO TO 1000 00016610 

CELLl=«(I)/10+*6 00016620 

C 00016630 

C FIND IF THIS CELL IS IN CELL ARRAY 00016640 

C 00016650 

j=1 '■ 00016660 

202 IF(CELL(J).EQ.CEU1) GO TO 210 00016670 

IF(CELL(J>.EQ.O) GO TO 230 00016680 

00016690 

GO TO 202 00016700 

C 00016710 

C FOUND IT— CHECK WIDTH AGAINST CURRENT SHALLEST 00016720 

C 00016730 

210 WIDTH=<W(I)-CEU1*10**6) 00016740 
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IF(yiDTH.GE.SnLyiD) GO TO 230 


00016750 

c 



00016760 

c 

SHAaER— UPDATE SMALLEST DATA 


00016770 

c 



00016780 


SHLEST=CELL1 


00016790 


SMLyiD=>yiDTH 


00016800 


PNTaJ 


00016810 

c 



00016820 

c 

NEXT CELL 


00016830 

c 



00016840 

230 

1=1+1 


00016850 


GO TO 201 


00016860 

1000 

CONTINUE 


00016870 

C 



00016880 

C 

GOT SMALLEST— CALL FNDBES TO FIND BEST 

PARTNER 

00016890 

C 



00016900 


C1=SMLEST 


00016910 


yi=SMLyiD 


00016920 


L1=NN(PNT)+NBP(C1) 


00016930 


CALL FNDBES(C1,C2>9^ZM9,yl,Ll,y2) 


00016940 

C 



00016950 

C 

CALL REDO TO REDO DATA BASES 


00016960 

C 



00016970 


COMP=COMP+1 


00016980 

C 



00016990 

c 

UPDATE NBP ARRAY 


00017000 

c 



00017010 


NBP(COMP)=NBP(C1 )+NBP(C2) 


00017020 


yB=yi+y2 


00017030 


CALL RED0(C1^C2,C0HP,FLG1,IX,yi,y2,i®) 


00017040 

c 



00017050 

c 

NEXT CELL 


00017060 

c 



00017070 


GO TO 200 


00017080 

c 



00017090 

c 



00017100 

Q*** 

DETERMINES THE FINAL CELLS IN CID^ AND 

yRITES TO 10 13 

00017110 

c 



00017120 

c 



ocr^ 7130 

432 

CONTINUE 


000 '71 40 


yRITE(PRNTR^6050) 


00017150 

6050 

F0RMATC1 CELL COMPOSED OF CEUS') 


00017160 


IF<CHR(1,1).EQ.O) GO TO 433 


00017170 


DO 600 KI=1^MXCLUS 


00017180 


X1=CHR(KI J) 


00017190 


C1=CHR(XI,2) 


00017200 


C2=CHR(KI/3) 


00017210 


DO 605 I=1^MXCELS 


00017220 


RE6(I)=0 


00017230 

605 

CONTINUE 


00017240 


REG(1)»X1 


00017250 


REG(2)=C1 


00017260 
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REG(3)=C2 

00017270 

610 

FLG5=0 

00017280 

612 

00 615 IZ=2^MXCELS 

00017290 


IF(REGdZ).LT.IOOO) 60 TO 630 

00017300 


FLG5=1 

00017310 


DO 680 I=1,HXCLUS 

00017320 


IF(RE6(IZ).EQ.CHR(I^D) GO TO 690 

00017330 

630 

CONTINUE 

00017340 


WRITE(PRNTR,80Q6) REG(IZ) 

00017350 

8006 

FORMATC ERROR(REOOI) —CANT FIND CLUSTEfiM5,‘ IN CHR') 

00017360 


STOP 

00017370 

690 

X1=CHR(I,1) 

00017380 


C1=CHR(I,2) 

00017390 


C2=CHR(I,3) 

00017400 


REG(IZ)=C1 

00017410 


006=IZ+1 

00017420 


DO 642 IY=006^RXCELS 

00017430 


IF{REG(IY).NE.0)60 TO 642 

00017440 


REG(IY)=C2 

00017450 


GO TO 612 

00017460 

642 

CONTINUE 

00017470 


WRITE(PRNTR^8007) 

00017480 

8007 

FORMATC ERRORCREO02) —OUT OF SPACE IN REG ARRAY*) 

00017490 


STOP 

00017500 

630 

IF(REG(IZ).EQ.O) 60 TO 640 

00017510 

615 

CONTINUE 

00017520 


WRITE(PRNTR,8008) 

00017530 

8008 

FORMATC ERROR (RE003) —0 NOT FOUND AT END OF REG ARRAY') 

00017540 


STOP 

00017550 

640 

IF(FLGS.NE.O) GO TO 610 

00017560 


yRITE(PRNTR,6051) (REG(I),I=1/II) 

00017570 

6051 

FORMAT(1X,I4/-',15I4,20(20(/6X^15I4))) 

00017580 


IF(CHR0a+1^1) .EQ.O) GO TO 433 

00017590 

600 

CONTINUE 

00017600 

433 

CONTINUE 

00017610 


IF(OEBUG.EQ.O) GO TO 567 

00017620 


WRITE(PRNTR^6006) 

00017630 

6006 

F0RMATC1 ',20X,' CELL-WIDTHS') 

00017640 


DO 560 I=1,MXCELS 

00017650 


IF(W(I).EQ.O) GO TO 567 

00017660 


WRITE(PRNTR^6007)H(I) 

00017670 

6007 

FORMATC ',20X,I11) 

00017680 

560 

CONTINUE 

00017690 


WRITE(PRNTR,8009) 

00017700 

8009 

FORMATC ERR0RCRE004) —MISSING END MARKER IN W ARRAY') 

00017710 


STOP 

00017720 

567 

IF(DEBUG.EQ.O) GO TO 1004 

00017730 


WRITE(PRNTR,1002) 

00017740 

1002 

FORMAT CO ' ,20X, ' CLUSTERING HISTORY ') 

00017750 


DO 568 I=1,MXCLUS 

00017760 


IF(CHRd^l).EQ.O) GO TO 1004 

00017770 


HRIT'CPRNTR,1003) CHRd^l ) ^CHRd,2),CHR(I^3) 

00017780 
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1003 F0RNAT('0',20X,3(I4,2X)) 

568 CONTINUE 

1004 CONTINUE 
I1»I+1 
T1«TRACK+1 
CHR(I%1)=-1 
CHRCI1, 2)3-1 
CHRdI, 3)3-1 
TRACECT1, 1)3-1 
TRACE(T1^2)3-1 
RETURN 

END 

SUBROUTINE FNDBES (Cl ,C2^tf9,ZN9^W1 
C*<H>»«r********»*w***»»SLBROUTINE FNDBES*** ****** * ********** 

C 

C 

C 

C 

C 

IMPLICIT INTEGER(A-Y) 

COMMON TEMP(100),BANK(100)^RES(1000)^NC(500), 

& PC(500),BC(3000)^CELL<1000)^NN<1000)^PN(1000)^BN(3000),W(1000) 
&^QQ<101),NBP(1700) 

COMMCW /NETDTA/ NETS(300Q),WID(1000)^PAD(100) ,NETN0S(50O) 

COMMON /GLBL/ PRNTR,RDR^NCELLS,NNETS,NPADS,DEBUG/MXCELS,XXX(9) 
INTEGER CAN0I0C220) 

C 

C FIND CANDIDATES FOR COIBINATION 
C 

C FIND C1 IN CELL ARRAY 

C 

DO 100 I=1,MXCELS 
IF(CELL(I),EQ.C1) GO TO 200 
100 CONTINUE 

WRITE(PRNTR,9001) Cl 

9001 F0RK,\T('0ERR0R(FND01) —CANT FIND C£LLM5^' IN CELL ARRAY') 
STOP 
C 

C II INDEXES NETS HOOKED TO Cl 
C 12 INDEXES CELLS WITHIN NET 
C 

200 GG1=PN(I) 

GG2=GG1+NN(I)-1 

NCNDID3Q 

DO 500 I1=GG1^GG2 
NETsBNdl) 

6633PC(NET) 

GG43GG3+NC(NET)-1 
DO 400 I23GG3,GG4 
CELL033C(I2) 

if(cello.eq.ci) go to 400 
IF(NCNDID.EQ.O) GO TO 310 


00017790 
00017800 
00017810 
00017820 
00017830 
00017840 
00017850 
00017860 
00017870 
00017880 
00017890 
00017900 
00017910 
00017920 
00017930 
00017940 
00017950 
00017960 
00017970 
00017980 
00017990 
00018000 
00018010 
00018020 
CX)018030 
00018040 
00018050 
00018060 
00018070 
00018080 
00018090 
00018100 
00018110 
00018* <iO 
00018130 
00018140 
00018150 
00018160 
00018170 
00018180 
00018190 
00018200 
00018210 
00018220 
00018230 
00018240 
00018250 
00018260 
00018270 
00018280 
00018290 
00018300 
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DO 300 I3=1/NCND10 
IF(CAND1D(13).EQ. CELLO) GO TO 400 
300 CONTINUE 

310 NCNDID=NCNDID>1 

CANDIO(NCNDIO)°CELLO 
400 CONTINUE 
500 CONTINUE 
C 

C ALL CANDIDATES NON IN CANDID ARRAY 
C 

WRITE(PRNTR,7001) Cl^Wl/Ll 

7001 F0RHAT('0',12X,'CELL TO BE COMBINED ='^I5, 

& ' WIDTH =',15/ n NETS =',I5) 

WRITE<PRNTR,7002) 

7002 FORMAT('0',71(1H#)/1X,'OELTA WETAL',4X, 

5 'CAND. WIDTH', 4X/CAND. NETS ' ,4X, 'NETS IF COMB.’, 

6 4X, 'CANDIDATE'/) 

ZH4=1.0E6 

DO 10000 I=1,NCNDID 
C 

C C 6 IS CURRENT CANDIDATE 

C 

C6=CANDI0(I) 

C 

C ZERO NUMBER TYPE 3,4 NETS FOR THIS C 6 

C 

Z3=0. 

Z4=0. 

C 

C LOOKUP C 6 IN CELL ARRAY 

C 

DO 600 I1=1,MXCELS 
IF(CELL(I1).EQ.C6) GO TO 620 

600 CONTINUE 

WRITE(PRNTR,9001) C 6 
STOP 

620 DO 621 J1=1,MXCELS 

CC=W(J1)/10**6 
IF(CC.EQ.C 6 ) GO TO 622 

621 CONTINUE 
WRITE(PRNTR,7010) C 6 

7010 F0RMAT('0ERR0R<FND02) —CANT FIND WIDTH FOR CELL', 15) 
STOP 

622 W6=(W(J1)-CC*10**6) 

IF(W 6 .EQ.O) GO TO 10000 

L6=NN(I1)+NBP(C6) 

C 

C FIND NETS FOR C 6 

C 

GG1=PN(I1) 

GG2=GG1+NN(I1)-1 
DO 700 I2=GG1,GG2 


00018310 

00018320 

00018330 

00018340 

00018350 

00018360 

00018370 

00018380 

00018390 

00018400 

00018410 

00018420 

00018430 

00018440 

00018450 

00018460 

00018470 

00018480 

00018490 

00018500 

00018510 

00018520 

00018530 

00018540 

00018550 

00018560 

00018570 

00018580 

00018590 

QOOI 80 OO 

00018610 

00018620 

00018630 

00018640 

00018650 

00018660 

00018670 

00018680 

00018690 

00018700 

00018710 

00018720 

00018730 

00018740 

00018750 

00018760 

00018770 

00018780 

00018790 

00018800 

00018810 

00018820 
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NET=8N(I2) 

00018830 

c 


00018840 

c 

SEE IF Cl IS IN THIS N£T 

00018850 

c 


00018860 


6G3»Pr(NET) 

00018870 


GG4«GG3+NC(NET)-1 

00018880 


DO 650 I3=GG3,G64 

00018890 


IF((BC(l3).EQ.C1).AND.(NC(I3).Ea.2)) Z3»Z3+1 . 

00018900 


IF((BC(I3).EQ.C1).AN0.(NC(I3).NE.2)) Z4»Z4+1 . 

00018910 

650 

CONTINUE 

00018920 

700 

CONTINUE 

00018930 

c 


00018940 

c 

SET W7= yiDTH IF COHBINED 

00018950 

c 


00018960 


y7=yi+w6 

00018970 

c 


00018980 

c 

SET L7= a nets IF COFffilNED 

00018990 

c 


00019000 


L7=L1+L6-2*IFIX(Z3+.5)-IFIX<Z4+.5> 

00019010 

c 


00019020 

c 

ZE7= EFFECTIVE EDGE IF COHBINED 

00019030 

c 


00019040 


ZE7=SQRT(FL0AT(W7)) 

00019050 

c 


00019060 

c 

ZE1,ZE6s EFFECTIVE EDGE C1^C2 

00019070 

c 


00019080 


ZE1=SQRT(FL0AT(WD) 

00019090 


ZE6=S(5RT<FL0AT(W6)) 

00019100 

c 


00019110 

c 

COMPUTE ZH8 = DELTA METAL 

00019120 

c 


00019130 


ZH8=ZE1*(Z3+Z4)/2.+ZE6*(Z3+Z4/2.) 

00019140 


ZM8=ZM8+ZE7*FL0AT(L7)-ZE1*FL0AT(L1)-ZE6*FL0AT(L6) 

00019150 

c 


00019160 

c 

COMPUTE CELL METAL IF COMBINED 

00019170 

c 


00019180 


ZM7=ZE1*FL0AT(L1)+ZE6*FL0AT(L6)+Zfffl 

00019190 


yRITE(PRNTR,7003) zre,W6,L6^L7,C6 

00019200 

7003 

F0RMAT(1X,F9.4^9X^I5^9X^I5^10X^I5/11X^I5) 

00019210 

c 


00019220 

c 

SEE IF THIS IS THE BEST SO FAR 

00019230 

c 


00019240 


IF(ZM8.GE.ZM4) 60 TO 10000 

00019250 

c 


00019260 

c 

IT IS— UPDATE BEST RECORD 

00019270 

c 


00019280 


ZM4=ZM8 

00019290 


ZM3=ZM7 

00019300 


C2=C6 

00019310 


W2=>y6 

00019320 


ZM2=ZE6*FL0AT(L6) 

00019330 

10000 

CONTINUE 

00019340 
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ZM9aZH94ZM4 

ZP1*Q. 

ZP2=Q. 

ZP3=0. 

KVC1=W‘!+y2 

IFCKVC1 .NE.O) ZP3=ZH3/FL0AT(W1+W2) 

IF(WI.NE.O) ZP1=ZE1*FLOAT(Ll)/FLOAT<yi) 

IF(y2.NE.O) ZP2=ZN2/FL0AT<y2) 

ZP9=ZN9/ FLOAT (y9) 

yRITE<PRNTR,7004) ZP3^ZPl ,ZP2,ZP9^ZHA,yi /y2 
7004 F0RHAT('0'/D3=',F4.1/ 0l = ',F4.1/ D2='^F4.1, 

S ' 0T=',F4.1^' NEy NETAL=> +'^F4.0^' A1='^I4^' A2a'^I4) 

RETURN 

END 

SUBROUTINE RED0CC1 ,C2,C0HP,FLG1 ,IX>1 ,y2,yB) 

C 

C 

C 

C<r***** REDO SUBROUTINE IF COMP IS RETURNED OTHER 
C THAN 500 ARRY NC AND BC ARE REDONE. 

C 

C 

c 

IMPLICIT INTE3ER(A-Y) 

COMMON /CLbDTA/ CHR(700,3) ^TRACE (700^2) , TRACK 
COMMON TEMPdOO) ,BANK(100) ^REG(IOOO) ,NC(500) , 

S PC(500),BC(3000),CELL(1000),NN(1000)^PN(1000)^BN(3000)^y(1000) 
S,QQ(101),NBP(17D0) 

COMMON /GLBL/ PRN .,RDR,NCELLS^NNETS/NPADS, DEBUG 
S ,MXCELS,MXNETS,XXX(8) 

COMMON /NETDTA/ NETS(3000) ,yiD(100Q) ,PA0(100) ,NETN0S(500) 

C 

C ASSIGNGS yEIGTHS TO CELLS 
C 

FLGy=0 

DO 232 I=1,MXCELS 
GG1=y(I)/10**6 
IF(GGI.EQ.O) GO TO 233 
IFCGGI.EQ.CI) GO TO 234 

IF(SG1.EQ.C2) GO TO 236 

GO TO 232 

234 yi=(y(I)-GG1*10**6) 

60 TO 237 

236 y2=(y(I)-GG1*10**6) 

237 FLGy=FLGy+1 

IF(FLGy.EQ.2) GO TO 238 

232 CONTINUE 

233 WRITE(PRNTR,8011) 

8011 FORMAT! 'OERRORCREDOD —CELLS NOT FOUND IN REDO FOR NEIGHTS') 
STOP 
C 

C **** DEFINES yiDTH OF CELLS ****** 


00019350 

00019360 

C»019370 

00019380 

00019390 

00019400 

00019410 

00019420 

00019430 

00019440 

00019450 

00019460 

00019470 

00019480 

00019490 

00019500 

00019510 

00019520 

00019530 

00019540 

00019550 

00019560 

00019570 

00019580 

00019590 

00019600 

00019610 

00019620 

00019630 

00019640 

00019650 

00019660 

00019670 

00019680 

00019690 

00019700 

00019710 

00019720 

00019730 

00019740 

00019750 

00019760 

00019770 

00019780 

00019790 

00019800 

00019810 

00019820 

00019830 

00019840 

00019850 

00019860 
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238 

DO 231 I =1,NXCELS 

00019870 


IF(H(I).E«.0) GO TO 239 

00019880 


GG1«»W{I)/10**6 

00019890 


IF((GG1.Ea.C1>.0R.(GG1.Ea.C2)> SO TO 246 

00019900 

231 

CONTINUE 

00019910 


WRITE(PRNTR,8012) 

00pi9920 

8012 

FORMAT C ERR0R(RED02) — IN WIDTH ARRAY^CELL Cl OR C2 NOT FOUND*) 

00019930 


STOP 

O0P19940 

246 

HB°U1-HJ2 

00019950 


W(I)=(CO«P*10**6)+UB 

00019960 

C 


00019970 

C COMBINES THE THREE CELLS INTO ONE WORDCCOHP^CI /C2) 

00019980 

c 


00019990 

239 

CHR(IX,1)=C0MP 

00020000 


CHR(IX,2)=C1 

00020010 


CHR(IX/i)=C2 

00020020 


HRITE<PRNTR^2177) COMP^CI ,C2^WB 

00020030 

2177 

FORMAT (13X^‘ CELL ',14^' REPUCES */I4^' & ^I4^10X, 

00020040 


S 'WIDTH =‘^I4) 

00020050 


IX=IX+1 

Q002Q060 


CHR(IX^1)=0 

00020070 


CHR<IX,2)=Q 

00020080 


CHR(IX^3)=0 

00020090 


DO 235 I=1,MXNETS 

00020100 


IF(NC(I).EQ.1) GO TO 235 

00020110 


IF(NCd).EQ.O) GO TO 260 

00020120 


INUM=0 

00020130 


0027=PC(I) 

00020140 


0014=0027-KJC(I)-1 

00020150 


0015=0014-1 

00020160 


DO 240 J=0027,0014 

00020170 

283 

IFC(BC(J).NE.C1).AN0,<8C(J).N£.C2)) GO TO 240 

00020180 


INUM=INUM+1 

00020190 


IF<INUM.EQ.2)G0 fO 255 

00020200 


DO 265 LL=J,0015 

00020210 


BC(LL)=BC(LL+1) 

00020220 

265 

CONTINUE 

00020230 


BC(0014)=COMP 

00020240 


GO TO 283 

00020250 

240 

CONTINUE 

00020260 


60 TO 235 

'''270 

C 

THIS PART MOVES ALL BC ARRY UP WIE POSITION I-: THAT NET 

280 

C 

AND ASSIGNS -1-VO UST POSITION. 

00020290 

255 

0017»PC(I)-*NC(I)-1 

00020300 


DO 272 K=J,0017 . 

00020310 


IF(K,EQ.0017) GO TO 271 

00020320 


BC(K)=BC(K+1) 

00020330 


GO TO 272 

00020340 

271 

BC(K)=-1 

00020350 

272 

CONTINUE 

00020360 


NC(I)=NC(I)-1 

00020370 


IFCNCCD.NE.DGO TO 235 

00020380 
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TRACE(TRACK^1)=C0NP 

TRACE(TRACK,2)=I 

WRITE(PRNTR,10D1) NETN0SCTRACE(TRAC<^2>) - 
1001 F0RMAT(13X,'NET ',14/ ABSORBED ') 

TRACKaTRACK+1 
TRACE(TRACK,1)=0 
TRACE(TRACKx2)=0 
235 CONTINUE 

yRlTE(PRNTR,8013) 

8013 FORMATC ERR0RCRE003) —0 NOT FOUND AT END OF NC ARRAY') 
STOP 

260 CALL P0INT2(FLG1) 
c returnes to REORG 
RETURN 
END 

SUBROUTINE RDNETS(TYPE^ITEH/ITEH2^CARD^CHAR) 

C 

c************* »**★»»★»*»♦*»★»******»***** iHtO* ****** 

c 

C 

C RDNETS— INPUTS NET LISTS 

C 

C 

C*************************rf*****************w****** 

C 

c 

IMPLICIT INTEGER (A-Y) 

COffflON /GLBL/ PRNTR^RDR,NCELLS,NNETS,NPAOS, DEBUG 
& ,MXCELS,MXNETS,MXCLNT,XXX(7) 

COMMON /NETDTA/ NETS (3000) ^yiD(IOOO) ,PAD(100) ,NETNOS (500) 
COMMON TEMPdOD) 

INTEGF° CARD(73) 

LOGICAL FLAG, TRUE/ .TRUE ./^FALSE/ .FALSE./ 
lEFILE =12 
NETPNT=1 
NNETS=0 
C 

C SET UP NETNOS ARRAY yiTH -1'S 
C 

DO 11000 I=1,MXNETS 
NETN0S(I)=-1 
11000 CONTINUE 
C 

C INITIALIZE CHAR TO FORCE NEN CARD 
C 

CHAR=73 

NET=1 

100 CALL GTITEM(TYPE,ITEM,ITEH2,CARD,CHAR) 

IF(TYPE.EQ.4) GO TO 100 
IF(TYPE.NE.3) GO TO 1000 
C 

C GOT A NET NUMBER 


00020390 
00020400 
00020410 
00020420 
00020430 
00020440 
00D20**50 
00020460 
00020470 
00020480 
00020490 
00020500 
00020510 
00020520 
00020530 
00020540 
00020550 
000205 '-0 
00020570 
00020580 
00020590 
00020600 
00020610 
00020620 
0002063U 
00020640 
00020650 
00020660 
00020670 
00020680 
00020690 
00020700 
00020710 
•00020720 
00020730 
00020740 
00020750 
00020760 
00020770 
00020780 
00020790 
00020800 
0002081 0 
00020820 
00020830 
00020840 
00020850 
00020860 
00020870 
00020880 
00020890 
00020900 
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C 

IFCNET.lt. BXNETS) GO TO 105 
WRITE(PRNTR,7001) HXNETS 

7001 FORMAT^ 0ERRORCRDN01 ) “MAX NET COUNT ('^14/ > EXCEEDED*) 
STOP 

105 NETNOS(NET)aIT£« 

RHETT^O 

8UTLER=-5 

WRITE(IEFILE,8001) RHETT^flUTLER 
yRlTEClEFILE^SIOI) ITEN^RHEH 
8001 F0RMAT(2(I12)) 

NET=NET+1 

C 

C SEE IF THIS IS CONTINUATION OF LAST NET 
C 

IFCNET.EQ.2) GO TO 110 
LNC1=NET-2 

IFCITEM.NE.NETNOSCLNCD) GO TO tIO 

NET=NET-1 

NETPNT=NETPNT-1 

110 CALL GTITEHCTYPE^ITEN^ITEM^^CARP^CHAR) 

IFCTYPE.EQ.3) GO TO 120 
IFCTYPE.NE.4) GO TO 1000 
C 

C END OF CURRENT NET 
C 

115 NETS(NETPNT)=0 
NETPNT=NETPNT+1 
GO TO 100 
120 CONTINUE 

IFCNETPr<T.LT.500t3) GO TO 125 
FIVEK=5000 

HRITE(PRNTR,7002) FIVEK 

7002 FORMAT('OERROR(RDN02) — NAX CELL-NET COUNT (',14^ 

& ' ) EXCEEDED ON NET ENTRY') 

STOP 

C 

C GOT A CELL NUMBER 

C 

125 NETS(NETPNT)=ITE« 

CELNUf1=ITEM 

NETPNT=NETPNT+1 

CALL GTITEM(TYPE,ITEH^ITEI12/CAR0,CHAR) 

C 

C IGNORE PIN NUPQER 

C 

WRITE(IEFILE,8001) CELNUN^ITEM 
IFCTYPE.EQ.3) GO TO 110 
WRITE(PRNTR,130) ITEM 

130 FORMATC'OWARNINGCRONOD — EXPECTED PIN # — DATA WAS '^15/ 
& 'NET END ASSUMED') 

GO TO 115 


00020910 

00020920 

00020930 

00020940 

00020950 

00020960 

00020970 

00020980 

00020990 

00021000 

00021010 

00021020 

00021030 

00021040 

00021050 

00021060 

00021070 

00021080 

00021090 

00021100 

00021110 

00021120 

00021130 

00021140 

00021150 

00021160 

00021170 

00021180 

00021190 

00021200 

00021210 

00021220 

00021230 

00021240 

00021250 

00021260 

00021270 

00021280 

00021290 

00021300 

0002-1310 

00021320 

00021330 

00021340 

00021350 

00021360 

00021370 

00021380 

CC021390 

00021400 

00021410 

0002142'v 
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: I 


- 1 


1000 CONTINUE 
C 

C ALL DONE— WRITE END 'SYMBOL AND RETURN 
C 

NETS(NETPNT)=-1 
IF(DEBUG.EQ.O) GO TO 1200 
WRITE(PRNTR,101Q) 

1010 FORMATCO'^ZOX^' STORED DATA') 

J=0 

C0UNT=2Q 
1050 CONTINUE 
K=J+COUNT 

IF(K.GT.NETPNT) COUNT=NETPNT-J 
WRITE(PRNTR,1100) (NETS(I+J)^I=1^C0UNT) 

1100 FORMATC '^20X, 50(14)) 

J=J+COUNT 

IF(J.LT.NETPNT) GO TO 1050 
1200 CONTINUE 

WRITE(PRNTR,2001) 

2001 FORNAT('0'^20X^'NET LISTS') 

NET=1 

FLAG=TRUE 

1=1 

2000 00 = 1+8 
0099=00 
001 = 1+8 

DO 2002 J=I,0099 
IF(NETS(J).EQ.“1 GO TO 2010 
IF(NETSCJ).NE.O) GO TO 2002 
00=J-1 
001=J 

GO TO 200:5 

2002 CONTINUE 

2003 CONTINUE 

IF(. NOT. FLAG) GO TO 2005 

HRITE(PRNTR,2006) NETNOS(NET)^<NETS(K),K=I^OO) 

2006 F0RMAT('0',20X^'NET'^I4,5X,18(I4)) 

NET=NET+1 

GO TO 2008 

2035 WRITE(PRNTR,2007) (NETS(K),K=I,00> 

2007 FORMATC *,32X^18(14)) 

2008 FLAG=FALSE 
IF(OOI.NE.OO) FLAG=TRUE 
1 = 001+1 

GO TO 2000 
2010 CONTINUE 
RETURN 
END 

SUBROUTINE GTCaS(TYPE,ITE«^ITEH2^CARD^CHAR) 

C 

C 


00021430 

OQ02144Q 

00021450 

00021460 

00021470 

00021480 

00021490 

00021500 

00021510 

00021520 

00021530 

-00021540 

00021550 

00021560 

00021570 

00021580 

00021590 

00021600 

00021610 

00021620 

00021630 

00021640 

00021650 

00021660 

00021670 

X021680 

00021690 

00021700 

00021710 

00021720 

00021730 

00021740 

00021750 

00021760 

00021770 

00021780 

00021790 

00021800 

00021810 

00021820 

00021830 

00021840 

00021850 

00021860 

00021870 

00021880 

00021890 

00021900 

00021910 

00021920 

00021930 

00021940 


V-.;, , 



67 


C 

C GTCELS — READS GATE DEFINITION DATA, FINDS 
C CELL yiOTHS FROM STARLB FILE 

C 
C 

C 

IMPLICIT INTEGER (A-Y) 

COMMON /GLBL/ PRNTR,RDR,NCELLS,NNETS,NPADS,OEBUS,NXCELS, 

& HXNETS,MXCLNT,NXCLUS,MXNTS2,MXPADS,XXX<4) 

COMMON /NETDTA/ NETS(3000) ,yiD(1000) ,PAD(100),NETNOS(500) 
INTEGER CARD(73) 

IEFILE=12 

C 

C FORCE NEW INPUT RECORD 

C 

CHAR=73 

NPADS=0 

C 

C CLEAR yiDTH ARRAY 

C 

DO 20 I=1,MXCELS 
yiD(I)=0 
20 CONTINUE 

100 CONTINUE 

C 

C READ CELL U 

C ‘ „ 

CALL GTITEHCTYPE, ITEM, ITEM2, CARD, CHAR) 

IF(TYPE.EQ.4) GO TO 100 
C 

C JUMP OUT IF END OF DATA 

C 

IF(TYPE.NE.3) GO TO 1000 
C 

C THIS IS A CELL NUMBER 

C 

CELL = ITEM 

I'(CaL.LT.MXCELS) G0 TO 110 
HRITE(PRNTR,7001) CELL,MXCELS 

7001 FORMAT ('OERROR(GTCOI) —CELL NUMBER TOO LARGE— NUMBER IS ',15, 

S ' MAX IS', 14) 

STOP 

C 

C GET TYPE M 

C 

110 CALL GTITEM(TYPE,ITEM,ITEM2,CAR0,CHAR) 

IF(TYPE.EQ.4) GO TO 110 
IF(TYPE.EQ.3) GO TO 130 
HRITE(PRNTR,120) ITEM 

120 FORMAT COWARNIr^GCGTCOD —EXPECTED CELL TYPE U — DATA HAS ', 

&A4,' —TYPE LIST END ASSUMED') 


00021950 
00021960 . 

00021970 
00021980 
00021990 
00022000 
.00022010 
00022020 . 
00022030 
00022040 
00022050 
00022060 
00022070 
00022080 
00022090 
00022100 
00022110 , 
00022120 ■ 
00022130 .. 
00022140 
00022.^50 
00022,160 . . 
00022170 
00022180 
QQ022'l90 
00022200 
00022210 
00022220 
00022230 . 
00022240 ' 
00022250 
00022260 
00022270 
00022280 
00022290 
00022300 
00022310 
00022320 
00022330 
00022340 
00022350 
00022360 
00022370 
00022380 
00022390 
00022400 • 
00022410 
00022420 
00022430 , 
00022440 
00022450 
00022460 
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so TO 1000 

00022470 

130 

CONTINUE 

00022480 

C 

- 

00022490 

C 

THIS IS A TYPE NUMBER 

00022500 

c 


00022510 


TYPENO-ITEN 

00022520 


HRITE(IEFILE,8001) CELL^TYPENO 

00022530 

axi 

F0HMAT(2(I12)) 

00022540 


1F(ITEN.LT.7QQ0> GO TO 140 

00022550 

c 


00022560 

c 

THIS IS A PAD 

00022570 

c 


00022580 


NPADSaNPAOS+1 

00022590 


NXP0S=NXPADS-2 

00022600 


IF(NPADS.LT.NXPDS) GO TO 132 

00022610 


NRITE(PRNTR,7000) NXPDS 

00022620 

7000 

FORMAT COERRORCGTCOZ) — TOO MANY PADS SPECIFIED — MAX IS *^14) 

00022630 


STOP 

00022640 

132 

CONTINUE 

00022650 


PAD(NPADS)<:CELL 

00022660 


HRITE(PRNTR,135) CELL^TYPENO 

00022670 

13S 

fOCTAT('0’^20X,'PAD M4^10X/TYPE *,I4) 

00022680 


60 TO 100 

00022690 

140 

CONTINUE 

00022700 

C 


00022710 

c 

THIS IS A CELL ~ SEARCH STARLB FOR TYPE 

00022720 

c 


00022730 


READ(14,150,END=200) X^Y 

00022740 

ISO 

F0RHAT(2I4) 

00022750 


IFCX.NE.TYPENO) GO TO 140 

00022760 

c 


00022; 70 

c 

FOl^D TYPE 0 — LOAD CELL WIDTH 

00022780 

c 


00022790 


HID(CELL)»Y 

00022800 


HRITECPRNTR/155) CELL^TYPENO^Y 

00022810 

155 

FORMAT C0',20X^' CELL M4^10X,'TYPE ',I4^10X^'UIDTH *,14) 

00022820 


REWIND 14 

00022830 


60 TO 100 

00022840 

200 

CONTINUE 

00022850 

C 


00022860 

c 

CELL TYPE NOT FOUND — SET WIDTH TO 1 

00022870 

c 


00022880 


WID(CELL)s1 

00022890 


WRITE(PRNTR^205) CELL^HPENO 

00022900 

2Q5 

F0RMAT('0',20X,'CELL ',I4,10X^ 'TYPE '^I4,10X, 

00022910 


ft ‘UIDTH NOT FOUND ~ (SET TO 1)') 

00022920 


REHIND 14 

00022930 


60 TO 100 

00022940 

1000 

CONTINUE 

00022950 

c 


00022960 

c 

NORMAL EXIT 

00022970 

c 


00022980 
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PAD(NPADS+1)=0 

PAD(NPA0S+2)=-1 

RETURN 

END 

SUBROUTINE GTORO(TYPE,ITE«,ITEM2,CARD,CHAR) 

C 

C***»»* * *************** *** * * * * » < t o o 

C 

C 

C GTORO — READS LINEAR ORDER FROU INPUT DATA 

C 

C 

C*******TOt ttoto t ttttt*tttot t t t*ttt * ttttttttttt t t t«t 

C 

IMPLICIT INTEGER (A-Y) 

COMMON /GL3L/ PRNTR,XXX(15) 

COMMON /LINDTA/ LdOOO) 

INTEGER CARD (73) 

C 

C 

WRITE(PRNTRJOO) 

100 F0RMATC0M2X, 'LINEAR ORDER ENTRY') 

CHAR=73 

L0PNT=1 

110 CONTINUE 
C 

C GET CELL # 

C 

CALL GTITEM(TYPE,ITEM,ITEM2^CARD,CHAR) 

IF {TYPE.EQ.4) GO TO HO 
IF(TYPE.NE.3) GO TO 1000 
C 

C ADD CELL TO LINEAR LIST 

C 

L(LOPNT)=ITEM 
L0PNT=L0PNT+1 
WRITE(PRNTR^150)ITEH 
150 F0RMAT('0'^15X^I4) 

GO TO 110 
1000 L(LOPNT)=0 

L0PNT=L0PNTv1 

L(L0PNT)=-1 

RETURN 

END 

SUBROUTINE LINEUP 
C 

C 

C 

C LINEUP-USES FLIP FLOP TECHNIQUE TO FORM 
C LINEAR ORDERING OF CELLS 

C 


00022990 
00023000 
00023010 
00023020 
00023030 
00023040 
00023050 
00023060 
00023070 
00023080 
00023090 
00023100 
00023110 
00023120 
00023130 
00023140 
00023150 
00023160 
0002: 170 
00023180 
00023190 
00023200 
00023210 
00023220 
00023230 
00023240 
00023250 
00023260 
00023270 
00023280 
00023290 
00023300 
00023310 
00023320 
00023330 
00023340 
00023350 
00023360 
00023370 
00023380 
00023390 
00023400 
00023410 
00023420 
00023430 
00023440 
00023450 
00023460 
00023470 
00023480 
00023490 
00023500 
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C 


C 


IMPLICIT INTEGER <A-Y) 

COMMON /GLBL/ PRNTR^ROR,NCELLS^NNETS,NPADS^DEBUG 
& ,HXCELS,MXNETS,MXCLNT^KXCLUS^HXNTSZ^«XPADS^HXNTCL 

5 ,MXROUS^HXCOLS^HXDFSZ 

COfWON /CLSOTA/ CHR (700^3) ^TRACK<700^2>^TTTTTT 
COMMON /LINDTA/ LdOOQ) 

COMMON/CLNET/CLNTS(5QOO) ASTCEL^FRSCLU 
COMMON UPNET(3Q00) ^DWNNET(3000) ,A(20) ,B(20) 

COWON /HEADER/ CAPMC1 ,CAP«C2^CAPVER^CAPREV^NAME1 ,NAHE2 
C 

C PRINT HEADER 

C 

WRITECPRNTR, 99999) CAPMC1 ,CAPMC2,CAPVER,CAPREV,NAME1 ,NAME2 
99999 F0RMATC1 ',40C1H*)^' CAPSTAR F ',2A4,‘ V.\A4,' REV.'^AA^ 

6 SX^'NETyORK - ',2A4,5X^'STEP - LINEAR ORDERING') 

C 

C FIND HIGHEST-NUMBERED CLUSTER FORMED 

C 


DO 10094 I=1,HXCLUS 
IF(CHR(I,1).EQ.O) GO TO 10096 
10094 CONTINUE 

WRITE(PRNTR,1001) 

1001 FORMATCOERROR(LINOI) — 0 NOT FOUND AT END OF CHR') 


STOP 

10096 C=CHR(I-1^1) 

C 

C FIND CONSTITUENTS OF THIS CLUSTER (C1^C2) 
C 

C1=CHR(I-1,2) 

C2=CHR(I-1^3) 

C 

C PUT C1,C2 IN LINEAR ORDER 
C 

L(1)=C1 

L(2)=C2 

L(3)=0 

C 

c******** main LOOP **★*♦★★****#* 

10200 CONTINUE 

C FIND HIGHEST-NUMBERED CELL IN ORDER 
C 


J«1 

DO 10250 I-1,MXCELS 
GS=L(I) 

IF'G.EQ.O) GO TO 10252 
IF^ jG.GT.L(J)) J=I 
10250 CONTINUE 

HRITE(PRNTR,1002) 

1002 FORMAT('OERROR(LIN02) — 0 NOT FOUND AT END OF L ARRAY') 


00023510 

00023520 

00023530 

00023540 

00023550 

00023560 

00023570 

00023580 

00023590 

00023600 

00023610 

00023620 

00Q23630 

00023640 

00023650 

00023660 

00023670 

00023680 

00023690 

00023700 

00023710 

00023720 

00023730 

00023740 

00023750 

00023760 

00023770 

00023780 

00023790 

00023800 

00023810 

00023820 

00023830 

00023840 

00023850 

00023860 

00023870 

00023880 

00023890 

00023900 

00023910 

00023920 

00023930 

00023940 

00023950 

00023960 

00023970 

00023980 

00023990 

000240Gu 

00024010 

00024020 


STOP 

10252 CONTINUE 
C=L(J) 

C 

C IF HIGHEST-NUMBERED CELL IS NOT aUSTER^ ALL DONE 
C 

IF(C.LT.IOOO) GO TO 11000 
REP=J 
C 

C FIND CONSTITUENTS OF THIS aUSTER 
C 

II=C-1000 

IF(CHR(II,1) .EQ.C) GO TO 16020 
WRITE(PRNTR,1003) C 

1003 F0RMAT('0ERR0R(LIN03) — CANT FIND CELL ' IN CHR') 

STOP 

16020 C1=CHR(II,2) 

C2=CHR(II,3) 

C 

C 

C*********** form UPNETS, DWNNETS ********int*iritt, 

C 

C 

C ZERO OUT UPNET^ DUNNET ARRAYS 
C 

DO 17005 00=1,MXCLNT 
UPNET(00)=0 
DWNNET(00)=0 
17005 CONTINUE 
C 

C FORM UPNETS 

C 

C IF CELL AT POSITION 1, NO UPNETS 

C 

IFCJ.EQ.I) GO TO 17100 
C 

C FOR EACH CELL TO LEFT OF TARGET^ ADl) NETS TO UPNET 

C 

00=>J-1 

DO 17070 11=1,00 
CELL=L(I1) 

J1=LSTCEL 

IF(CELL.LT. lOOO) J1=FRSCLU-1 
17040 OOl=CLNTS(Jl)/1000 

IF(OOI.EQ.CELL) GO TO 17050 
J1=J1-1 

IF(JI.NE.O) GO TO 17040 
«RITE(PRNTR,100) CELL 

ICO F0RMAT('0ERR0R(LIN04) —CANT FIND CELL ',14,' FOR UPNETS') 
STOP 

17050 A7=CLNTS(J1)-(OOU1000) 

UPNET(A7)=A7 


0002403C 

00024040 

00024050 

00024060 

00024070 

00024080 

00024090 

00024100 

00024110 

00024120 

00024130 

00024140 

00024150 

00024160 

OQ024170 

00024180 

00024190 

00024200 

00024210 

00024220 

00024230 

00024240 

00024250 

00024260 

00024270 

00024230 

00024290 

00024300 

00024310 

00024320 

00024330 

00024340 

00024350 

CK]02436Q 

00024370 

00024380 

00024390 

00024400 

CX)024410 

00024420 

00024430 

00024440 

00024450 

00024460 

00024470 

00024480 

00024490 

00024500 

00024510 

00024520 

00024530 

00024540 
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001=CLNTS(J1)/100D 
IF(OOI.EQ.CELL) GO TO 17050 
17070 CONTINUE 
17100 00=J+1 

IF(L(00).EQ.O) GO TO 17180 
C 

C FOR EACH CELL TO RIGHT OF TARGET, ADD NETS TO OWNNET 
C 

DO 17170 I2=00,HXCELS 
CELL=L(I2) 

IF(CELL.EQ.O) GO TO 17180 
J2=LSTCEL 

IF(CELL.LT.IOOO) J2=FRSCLU-1 
17140 0O2=CLNTS(j2)/10D0 

IF(002.Ea.CELL) GO TO 17150 
J2=J2-1 

IF(J2.6T.O) GO TO 17140 
HRITE(PRNTR,200) CELL 

200 FORHATCQERRORCLINOS) —CANT FIND CELL *,I4,' FOR DyNNETS') 
STOP 

17150 87=CLNTS(J2)-(002*10DO) 

DWNNET(B7)=B7 

J2=J2-1 

002=CLNTS(J2)/1000 
IF(002.EQ.CELL) GO TO 17150 
17170 CONTINUE 
17180 CONTINUE 
C 

C FOR« LIST OF NETS THAT Cl IS IN (A ARRAY) 

C AND LIST OF NETS THAT C2 IS IN (B ARRAY) 

C 

C 

LA=0 

LB=0 

13=0 

IF(CI.GE.IOOO) I3=FRSCLU-1 
10310 13=13+1 

00=CLNTS(I3)/1000 
IF(OO.NE.CI) GO TO 10310 
10320 LA=LA+1 

A(LA)=CLNTS(I3)-(00*100Q) 

13=13+1 

00=CLNTS(I3)/1000 
IFC00.EQ.C1) 60 TO 10320 
J3=0 

IF(C2.GE.1Q00) J3=FRSCLU-1 
10330 J3=J3+1 

00=CLNTS(J3)/10QO 
:F(00.NE,C2) go to 10330 
10340 LB=LB+1 

B(LB)=CLNTS(J3)-(00*1000) 


00024550 

00024560 

00024570 

00024580 

00024590 

00024600 

00024610 

00024620 

00024630 

00024640 

00024450 

00024660 

00024670 

00024680 

00024690 

00024700 

00024710 

00024720 

00024730 

00024740 

00024750 

00024760 

00024770 

00024730 

00024790 

00024800 

00024810 

00024820 

00024830 

00024840 

00024850 

00024860 

00024870 

00024880 

00024890 

00024900 

00024910 

00024920 

00024930 

00024940 

00024950 

Q0Cc4960 

00024970 

00024980 

00024990 

00025000 

00025010 

00025020 

00025030 

00025040 

00025050 

00025060 
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J3=J3+1 

00=CLNTS(J3)/1000 
IF(00.EQ.C2) GO TO 10340 
C 
C 

COMPUTE J2 


J1=0 

J2=0 

DO 10510 IA1=1^LA 
AA=A(IA1) 

IF(UPNETCAA).EQ.AA) Jl=Jl+1 
IF(OWNNET(AA).EQ.AA) J1=J1“1 
10510 CONTINUE 

DO 10620 JA1=1,LB 
BB=8(JA1) 

IF(UPNET(BB) .EQ.B8) J2=J2+1 
IF(DUNNET(8B) .EQ.B8) J2=J2-1 
10620 CONTINUE 
C 
C 

C USE J1^ J2 TO GET Cl, C2 ORDERING 

C 

C 

IF(J1.GE.J2) GO TO 10730 

T=C2 

C2=C1 

C1=T • 


C 

C 

C REPLACE EXPANDED aUSTER WITH 

C 

C 

10730 L(REP)=C1 

T1=L(REP+1) 

L<REP+1)--C2 

00=REP+2 

DO 10770 IB1=00,HXCELS 
001=L(IB1) 

IF(OOI.NE.O) GO TO 10760 

L(IB1)=T1 

L(IB1+1)=0 

GO TO 10200 


10760 T2=L(IB1) 


L(IB1)=T1 

T1=T2 

10770 CONTINUE 

GO TO 10200 


Cl, 


C2 


00025070 

00025080 

00025090 

00025100 

00025110 

00025120 

00025130 

00025140 

00025150 

00025160 

00025170 

00025180 

00025190 

00025200 

00025210 

00025220 

00025230 

00025240 

00025250 

00025260 

0002527U 

00025280 

00025290 

00025300 

00025310 

00025320 

00025330 

00025340 

00025350 

00025360 

00025370 

00025380 

000?'5390 

00025400 

00025410 

00025420 

00025430 

00025440 

00025450 

00025460 

00025470 

00025480 

00025490 

00025500 

00025510 

00025520 

00025530 

00025540 

00025550 

00025560 

00025570 

00025580 


OUTPUT RESULTS 
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c 


00025590 

11000 CONTtKUE 

00025600 


WRITECPRNTR^700) 

00025610 

700 

FORNAT('0',20X,*UINEAR ORDER') 

00025620 


1=0 

00025630 

11001 

00=t(I*1) 

00025640 


IF(OO.EQ.O) GO TO 20000 

00025650 


001^1*1 

00025660 


002al*15 

00025670 


003=^02 

00025680 


00 11005 J=001,002 

00025690 


IF(LCJ).NE.O) GO TO 11005 

00025700 


003=J-1 

00025710 


GO TO 11006 

00025720 

11005 

CONTINUE 

00025730 

11006 CONTINUE 

00025740 


WRITE(PRNTR,710) (L (J ) ,J=001 ^003) 

00025750 

710 

FORBATCQ', 15(14)) 

00025760 


IFC003.NE.002) GO TO 20000 

00025770 


1=1+15 

00025780 


GO TO 11001 

00025790 

20000 

CONTINUE 

00025800 


L(003+2)=-1 

00025810 


RETURN 

00025820 


END 

00025830 


SUBROUTINE UIRCRS 

00025840 

C 


00025850 

C^»^H^*^^*^^»^H^^*»*^H^★<n^^******^HH^★**»^>****«r**^>*****»^n»* 

00025860 

c 


00025870 

c 


00025880 

c 

yiRCRS— IMPLEMENTS WIRCROSSA OUTPUT FOR 

00025890 

c 

LINEAR ORDER 

00025900 

c 


00025910 

c 


00025920 

c******* *<**«*************»***************** ******* 

00025930 

c 


00025940 


IMPLICIT INTEGER (A-Y) 

00025950 


COMMON /GLBL/ PRNTR,RDR,NCELLS^NNETS,NPADS^DEBUG,XXX(10) 

00025960 


COMMON /LINDTA/ L(1000) 

00025970 


COMMON /CLNET/ CLNTS(5000) ,LSTCEL^FRSCLU 

00025980 


COMMON /NETDTA/ NETS (3000) ^WIDCIOOO) ^PADCI DO) ,NETNC6(500> 

00025990 


COMMON COUNT(5Q0),FUI0(10Q0),OUT(10O),OUTTM(500) 

00026000 


COMMON /HEADER/ CAPMC1 ,CAPMC2,CAPVER,CAPREV,NAME1 ,NAME2 

00026010 


INTEGER 0IGS(12)/'0 '/I ’^'2 ','3 '^'4 '/5 

00026020 


& '6 ','7 ','8 */9 •/ •/ 

00026030 


LOGICAL STFLG, TRUE/. TRUE./, FALSE/. FALSE./ 

00026040 

c 


00026050 

c 

PRINT HEADER 

00026060 

c 


00026070 


HRITE(PRNTR, 99999) CAPMC1 ,CAPMC2,CAPVER,CAPREV,NAME1 ,NAME2 

00026080 

99999 

FORMAT! T, 40(1 H*),' CAPSTAR F *,2A4,' V.',A4,' REV.',A4, 

00026090 


& 5X, 'NETWORK - ',2A4,5X,'STEP - WIRECROSS') 

000261 C^'J 
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c 


00026110 

c 

LOAD COUNT(I) WITH 0 CEUS IH KET I 

00026120 

c 


00026130 


N0UT=0 

00026140 


C0UNT(1)=0 

00026150 


NETPNT=1 

00026160 


1=1 

OQ026170 

100 

IFCNETS(NETPNT).EQ.-I) GO TO 300 

00026180 


IFCNETS(NETPNT) .EQ.O) GO TO 200 

00026190 


COUNT(I)=COUNTCI)+1 

00026200 

110 

NETPNT=NETPNT+1 

00026210 


GO TO 100 

00026220 

200 

1=1+1 

00026230 


NETPNT=NETPNT+1 

000262s0 


C0UNT(1)=0 

00026250 


GO TO 100 

00026260 

300 

CONTINUE 

00026270 

c 


00026230 

c 

LOAD FUIO ARRAY WITH CUNUUTIVE UNEAR ORDER WIDTHS 

00026290 

c 


00026300 


FWID(1)=W1D(L(D) 

00026310 


1=2 

00026320 

400 

IFCL(I).EQ.O) GO TO 450 

00026330 


FWIDCI)=WID<LCl))+FWIDa-1) 

00026340 


1=1+1 

00026350 


GO TO 400 

00026360 

450 

T0TWID=FWID(I-1) 

00026370 

C 


00026380 

C 

ZERO OUT ARRAY 

00026390 

C 


00026400 


DO 550 1=1,100 

00026410 


0UT(I)=0 

00026420 

550 

CONTINUE 

00026430 

C 


00026440 

C 

RAIN LOOP 

00026450 

C 


OO02646O 


LPNT=1 

00026470 


CLNTPT=0 

00026480 


WRITE(PRNTR,7004) 

00026490 

7004 

FORRATCO',' FWID RWID CELL') 

00026500 


WRITE(PRNTR,7001) TOTWID 

00026510 

7001 

FORMATCO',' O', 15) 

00026520 

C 


00026530 

C 

CHECK FOR END OF LINEAR ORDER 

00026540 

C 


00026550 

600 

IF<L(LPNT).EQ.O) GO TO 20000 

00026560 


CLNTPT=0 

00026570 

c 


00026580 

c 

FIND NETS FOR THIS CELL 

00026590 

c 


00026600 

610 

aNTPT=CLNTPT+1 

0C026610 


TEST=CLNTS(CLNTPT)/1000 

00026620 
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IF<TEST.NE.L(LPNT>) GO TO 610 
C 

C FOUND FIRST NET— PUT U IN VAR. NET 
C 

700 NETaCLNTS(CLNTPT)-TEST*1000 
ZERFLG=0 
C 

C IS THIS NET ALREADY IN OUT ARRAY? 

C 

1=1 

705 IF(I.GT.NOUT) GO TO 760 

IF<OUT<I). NE.NET) GO TO 710 
C 

C ALREADY THERE^ DEC. COUNT AND NE)CT NET 
C 

OUT(I)=-NET 
GO TO 780 

710 IF(OUT<I).EQ.O) ZERFLG=1 

1 = 1+1 •- 
GO TO 705 
C 

C NET NOT THERE— CHECK FOR EMPTY TRACKS 
C 

760 IF(ZERFLG.EQ.I) GO TO 765 
C 

C NO EMPTY TRACKS— ADD NET TO END 
C 

OUT(I)=-NET 
N0UT=N0UT+1 
GO TO 780 
C 

C EMPTY TRACK FOUND— STICK NEU NET IN IT 
C 

765 1=0 

770 1=1+1 

IFCOUT(I).NE.O) GO TO 770 
OUT(I)=-NET 
ZERFLG=0 
C 

C DEC. COUNT FOR THIS NET & WORK ON NEXT ONE 
C 

780 COUNT (NE1. COUNT (NET) -1 
CLNTPT=CLNTPT+1 
TEST=CLNTS (CLNTPT) /1 000 
IF<TEST.EQ.L(LPNT)) GO TO 700 
C 

C NO MORE NETS— SET UP FOR PRINTOUT 
C 

RUID»TOTyiO-,'i<IO(LPNT) 

TMPNT»1 

DO 900 I»1^N0UT 
TMPTTS=TMPNT+5 


00026630 
00026640 
00026650 
00026660 
00026670 
00026680 
00026690 
00026700 
00026710 
00026720 
00026730 
00026740 
00026750 
00026760 
00026770 
00026780 
00026790 
00026800 
00026810 
00026820 
00026830 
00026840 
00026850 
00026860 
00026870 
00026880 
00026890 
00026900 
00026910 
00026920 
00026930 
00026940 
00026950 
00026960 
00026970 
00026980 
00026990 
00027000 
00027010 
00027020 
00027030 
00027040 
00027050 
00027060 
000^7070 
00027080 
00027090 
00027100 
00027110 
00027120 
00027130 
000271 40 


f 


' 


DUK=11 

77 

00027150 

F' ‘ 

k ' 
;* 

1 

1 

NET=0UT(I) 


00027160 


IF(NET) 809^811^810 

• 

00027170 

/. 

809 

DUM=12 


00027180 



NET=-NET 


00027190 


810 

NET=NETN0S(NET) 


00027200 


811 

DIG1=NET/100 


00027210 

V 

V 


01G2=(NET-DIG1*100)/10 


00027220 


DIG3=(NET-DIG1*100-DIG2*10) 


00027230 

■ 


0UTTM(TMPNT)=DIGS(11) 


00027240 



TMPNT=Tf!PNT+1 


00027250 



OUTTM(TMPNT)=DIGS(DU>0 


00027260 

( 


TMPNT=THPNT+1 


00027270 

B 


STFLG=FALSE 


00027280 

\ 


0UTTM(TMPNT)=DIGS(DIG1+1) 


00027290 


1 

IF<DIG1.NE.O) STFLG=TRUE 


00027300 



IF(STFLG) TMPNT=THPNT+1 


00027310 



0UTTM(Tf1PNT)=DIGS(DIfi2+1) 


00027320 


1 

IF(DI62.NE.0) STFLG^TRUE 


00027330 


1 

IF(STFLG) TNPNT=TMPNT+1 


00027340 



0UTTM(TNPNT)=DIGS(DIG3+1) 


00027350 



IF(DIG3.NE.0) STFLG=TRUE 


00027360 



IF(STFLG) TMPNT=TMPNT+1 


00027370 

i 

820 

IF(TMPNT.GE.TMPTTS) GO TO 900 


00027380 

} j 

V I 


0UTTf»!(TNPNT)=DIG3(11) 


00027390 

i 


TKPNT=TXPNT+1 


00027400 



GO TO 820 


00027410 


c 



00027420 


C 

PRINT THIS CELL'S ROW 


00027430 

1 

C 



00027440 


900 

CONTINUE 


00027450 

; i 


NPNT=N0UT*5 


00027460 

1 


WRITE(PRNTR,7002) FWID(LPNT) ^RWIO, 

L(LPNT)^(0UTTM(I),I=1^NPNT) 

00027470 


7002 

FORHATC ',3(I5),4X,100(A1),5(/20X 

JOO(AD)) 

00027480 


C 



00027490 

' ' 

C 

DELETE ENDED NETS FROM OUT ARRAY 


00027500 

t j 

1 C 

1=1 


00027510 

00027520 

1 

920 

IF(I.LE.NOUT) GO TO 930 


00027530 

1 

j 


LPNT=LPNT+1 


00027540 

1 

1 


GO TO 600 


00027550 


i 930 

IF(OUT<I).GE.O) GO TO 980 


00027560 

f'- 1 

i 

OUT<I)=-OUT(I) 


00027570 


1 

IF(COUNT(OUT(I)).NE.O) GO TO 980 


00027580 

W- .- 


OUT(I)=0 


00027590 



IF(I.NE.NOUT) GO TO 980 


00027600 

.O 

960 

N0UT=N0UT-1 


00027610 

I'" 


IF{OLrr(NOUT).EQ.O) GO TO 960 


00027620 

1- ^ 

980 

1=1+1 


00027630 

i 

1 

GO TO 920 


00027640 

1 

20000 

CONTINUE 


00027650 

W' 

^ j 

c 

[ 

i 

i 



00027660 

’Cr’ 

1 

1 
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C NORMAL ROUTINE EXIT 

C 

RETURN 

END 

SUBROUTINE CELNETCSUITCH) 

C 

c 

CELNET ROUTINE ******************* 

C 

C FORMS CELL-NET LIST (CLNTS) 

C 

C 

IMPLICIT INTEG£R(A-Y> 

COMMON /GLBL/ PRNTR,RDR,NCELLS,NNETS,NPADS, DEBUG 
& ,MXCELS,MXNETS^NXCLNT,XXX(7) 

COMMON /NETDTA/INP(3000) ^UID (1000), PAD (100), NETNOS(500) 
COMMON /CLSDTA/ CHR(700,3) ,TRACK(700,2),TTTTTT 
COMM0N/CLNET/CLNTS(5000),LSTCEL,FRSCLU 
LOGICAL FLG, TRUE/. TRUE./, FALSE/. FALSE./ 

COMMON N0(500) 

C 

C aEAR OUT NO ARRAY 
C 

DO 10042 I=1,MXNETS 
N0(l)=0 
10042 CONTINUE 
T0=1 
1=1 

J=1 ■ 

K=1 

C 

C BUILD CELL-NETS FOR ORIGINAL (NOT PARTIT-FORMEO) CELLS 

C 

c 

10080 IF(INP(I).NE.O) GO TO 10090 
J=J+1 
1 = 1+1 

10090 IF(INP(I).EQ.-1) GO TO 10200 
CLNTS(K)=(INP(I)*1000)+J 
K=K+1 
1 = 1+1 

GO TO 10080 
C 
C 

C BUIIO CaL-NETS FOR PARTIT-FORMED CEUS 

C 

C 

10200 I'1 

IF(SWITCH.NE.O) GO TO 10205 

CLNTS (K)=10*+6 

K»K+1 

60 TO 10300 


00027670 

00027680 

00027690 

00027’00 

00027710 

00027720 

00027730 

00027740 

00027750 

00027760 

00027770 

00027780 

•00027790 

00027800 

00027810 

00027820 

00027830 

00027840 

00027850 

00027860 

00027870 

00027880 

000*17890 

00027900 

00027910 

00027920 

00027930 

00027940 

00027950 

00027960 

0002797J 

00027980 

00027990 

00028000 

00028010 

00028020 

00028030 

00028040 

00028050 

00028060 

00028070 

00028080 

U0028090 

00028100 

00028110 

00028120 

00028130 

00028140 

00028150 

00028160 

00028170 

00028180 
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1Q205 IFCCHRd^D .Ea.Q) GO TO 10300 
C1=CHR(I^2) 

C2“CHR(I,3) 

10212 IF(CHR(I,1).NE.TRACK(T0^D) GO TO 10220 
N0vTRACK(T0^2))=1 
T0=T0+1 
GO TO 10212 
10220 0C=K-1 

W) 10270 J=1^00 
COeCLNTS(J) 

001=CC/1000 

IF(OOI.EQ.CI) GO TO 10252 
IF(001.NE.C2)GO TO 10270 
10252 002=NO(CO-(001*1000)) 

IFCK.LT.5000) GO TO 10254 
FIVEK=5000 

WRITE(PRNTR,7Q02) FIVEK 

7002 FORHAT('OERRORCCELOI) —MAX CELL-NET COUNT <M4, 
& ' ) EXCEEDED IN CEwNET') 

STOP 

10254 IF(002.NE.0) GO TO 10270 

CLNTS(K) = (CHR(I,1)*1000)'KrrKj01*1000) 

K=K+1 

10270 CONTINUE 
1 = 1+1 

GO TO 10205 
C 
C 

C SORT CELL-NETS FOR EASIER ACCESS IN LINEUP 

C 

C 

10300 CLNTS(lO=0 
D=(K-1)/2 
10310 FLG=FALSE 
1=1 

10315 001=CLNTS(I+D) 

IFC001.EQ.0) 60 TO 10330 
IF(CLNTS(I) .LE.001) 60 TO 10325 
T=CLNTS(I) 

CLNTS(I)=00'' 

CLNTSCI+D)=T 
FLG=TRUE 
10325 1=1+1 

GO TO 10315 
10330 0=D/2 

IF(D.NE.O) go to 10310 
IFC.NOT.FLG) go to 10400 
D=1 

GO to 10310 
10400 1=1 
J=1 
C 


00028190 
00028200 
00028210 
00028220 
00028230 
00028240 
00028250 
00028260 
00028270 
00028280 
00028290 
00028300 
OOO: ' '1C 

000 t- :o 

00028330 
00028340 
00028350 
00028360 
00028370 
00028380 
00028390 
00028400 
00028410 
00028420 
00028430 
00028440 
00028450 
00028460 
00028470 
00028480 
00023490 
00028500 
00028510 
00028520 
00028550 
00028540 
00028550 
00028560 
000^8570 
000 ...; 
00Q2L 9L 
000286uO 
0002L6in 
00028620 
00028630 
00028640 
00028650 
00028660 
00028670 
OQ028680 
00028o90 
00028.700 
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c 


00028710 

c 

ELIMINATE THE DUPLICATE ENTRIES IN THE CELL-NET LIST 

00028720 

c 

• 

00028730 

c 


00028740 

10410 J=J+1 

00028750 


IF(CLNTSd).EQ.O) GO TO 10500 

00028760 


IF(CLNTS(I).Ea.CLNTS(4)) TO 10410 

00028770 


1=1+1 

00028780 


CLNTS(I)=CLNTS(J) 

00028790 


GO TO 10410 

00028800 

10500 K=I 

00028810 


LSTCEL=I-1 

00028820 


CLNTS(LSTCEL+2)=-1 

00028830 

C 


00028540 

C 

COUNT CELLS (INCLUDING PADS) 

00023850 

c 


00028860 


NCELLS=0 

00028870 


1=1 

00028880 


000=CLNTS(1)/10QO 

00028890 

310 

GG=CLNTS(1) 

00028900 


IF((GG.GE.1000000).0.^. .'-.Ea.O)) GO TO 320 

00028910 


1=1+1 

00028920 


0001=CLNTS(I)/10DO 

00028930 


IF(0001 .EQ.OOO) GO TO 310 

00028940 


000=0001 

00028950 


NCELLS=NCELLS+1 

00028960 


60 TO 310 

00028970 

320 

FRSCLU=I 

00028980 


IF(DEBUG.EQ.O) 60 TO 20000 

0002C 


WRITECPRNTR,311) NCELLS 

00029000 

311 

FORMATC 'O', 20X^4,’ CELLS COUNTED') 

00029010 


WRITE^PRNTR,7001) FRSCLU 

00029020 

7001 

F0RMAT('0',20X,'FRSCLU =',I4) 

00029030 


WRITECPRNTR,1Q0) 

00029040 

100 

FORMATC O', 20X,' CELL-NETS (INTERNAL NET #S)') 

00029050 


DO 10600 1=1 ,K 

00029060 


WRITE (PRNTR, 200) CLNTS(I) 

00029070 

200 

FORMATC ',20X,I9) 

00029080 

10600 

CONTINUE 

00029090 

200QC 

RETURN 

00029100 


END 

00029110 


EUaROUTINE PASS (ROUS, COLS, NfLSAV,NPISAV,MAXSOL,RN,CN) 

00029120 

C 


00029130 

c 


00029140 

C*****i,irtn AiHi PASS— SETS UP FILE FOR PART 2B ***** 

00029150 

C 


00029160 

c 


00029170 

c 


00029180 


IMPLICIT INTEGER iA-Y) 

00029190 


COPWON /6LBL/ GG(16) 

00029200 


COMMON /NETDTA/ NN(4600) 

00029210 


COWWN /LINDTA/ LU1000) 

00029220 
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COHHON /HEADER/ HH(6) 

COlWON /CLNET/ CC(5002) 

PASSFL=18 
00 100 1=1^16 

IF(SS(I).6T.9999.0R.GG(I).LT.-999) €G(I)=0 

00029230 

00029240 

00029250 

00029260 

00029270 

9000 

F0kNAT(20(I4)) 

00029280 

100 

CONTINUE 

WRITE(PASSFL^9000) GG 
DO 200 1-^1,4600 

IF(NN(I).6T.9999.0R.NN(I).LT.-999) NN(1)=0 

00029290 

00029300 

00029310 

00029320 

200 

CONTINUE 

WRITE(PASSFL^9000) NN 
DO 300 1=1,1000 

IF(LL(I).GT.9999.0R.LL(I).LT.-999) LL(I)=0 

00029330 

00029340 

00029350 

00029360 

300 

CONTINUE 

URITE(PASSFL,9000) LL 
DO 400 1=1,3000 

IF(CC(I).GT. 99999999. OR. CCCD.LT. -9999999) CC(I)=0 

00029370 
00029380 
00029390 
s 00029400 

9002 

F0RflAT(10(l8)) 

00029410 

400 

CONTINUE 

HRITE(PASSFL,9002) (CC(I),I=1,3000),CC(5001),CC(5CH32) 
URITE(PASSFL,9003) HH 

00029420 

00029430 

00029440 

9003 

F0RMAT(10(A4)) 

WRITE (PASSFL,9000) ROWS,COLS,NFLSAV,NPISAV,MAXSOL,RN,CN 
PRNTR=GGC1) 

HRITE(PRNTR,7Q00) 

00029450 

00029460 

00029461 

00029470 

7000 

FORHATCODATA TRANSFER FILE CONSTRUCTED') 

RETURN 

END ■ 

00029480 

00029490 

00029500 


C 









00000110 

C 









00000120 

C 









00000130 

C 

ccccc 

A 

PPPPPP 

SSSSS 

TTTTTTT 


A 

RRRRRR 

00000140 

C 

c c 

A A 

P P 

S S 

T 


A A 

R R 

00000150 

C 

c 

A A 

P P 

S 

T 

A 

A 

R R 

00000160 

C 

c 

A A 

PPPPPP 

SSSSS 

T 

A 

A 

RRRRRR 

0)000170 

c 

c 

AAAAAAA 

P 

S 

T 

AAAAAAA 

R R 

00000180 

c 

c c 

A A 

P 

S S 

T 

A 

A 

R R 

00000190 

c 

ccccc 

A A 

P 

SSSSS 

T 

A 

A 

R R 

00000200 

c 









00000210 

c 









00000220 

c 

CELL 

ARRANGEMENT 

PROGRAM 

FOR THE STANDARD 




00000230 



o o r-> o o o r^rir»ooorjr^r>or>r»or>ooonr>r»or>r->or>o 
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/ 

C TRANSISTOR ARRAY 

C 

C 

C VERSION 28 REVISION 4 — JUNE 1979 


AUTHOR; GLENN W. COX 
EE DEPT 

AUBURN UNIVERSITY 
AUaURN, AL 36830 


THIS IS PART B OF CAPSTAR - 

FOR PROGRAM INFORMATION^ SEE PART A 


MAIN CONTROL ROUTINE 


IMPLICIT INTEGERCA-Y) 
DEFINE COMMON DATA AREAS 


GLOBM COMMON 

COMMON /GLBL/ PRNTR,RDR,NCELLS,NNETS,NPADS^DEBUG 
& ^MXCELS,MXNETS,MXCLNT,MXCLUS,MXNTSZ^MXPADS,MXNTCL 
& ^XROHS,MXCOLS^MXDFSZ 

NET DATA COMMON 

COMMON /NETDTA/ N:T(3000),HIO(1000),PAO(100)^N£TNOS(500> 
C 

C LINEAR ORDER DATA COMMON 
C 


00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000330 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00300450 

00000460 

0000047Q 

00000430 

CHJ000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00(K30550 

00000560 

00000570 

00000580 

00000590 

00000600 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 


COMMON /LINDTA/ LiNOROdOOO) 
C 


00000720 

OOOOOT30 


C FOLD DATA COMMON 00000740 

C • .... 00000750 



83 


i COMNON /FLDDTA/ CHIP(30,100) ^R0WS^CXS,P0S(1000^2),NFLSAV,NPISAV 

& ^HAXSOL^RN^CN 
C 

! C HEADER COMMON 

] C 

i COMMON /HEADER/ CAPMCUr.APMC2,CAPVER,CAPREV,NAMEl^NAME2 

; - c 

C DEFINE I/O ASSIGNMENTS 

' C 

■ RDR=15 

j • PRHTR=6 

] C 

c 

C RETRIEVE DATA FROM PART A 

C 

CALL CATCHCROyS,COLS,NFLSAV^NPISAV,HAXSOL^RN,CN) 

C 

C PUCE 

C 

C 

CALL PLACE 
C 

2000 WRITE(PRNTR,9030) 

9030 FORMAT C'1 NORMAL CAPSTAR TERMINATION*) 

; STOP 

END 

! SUBROUTINE CATCH(ROyS^COwS,NFLSAV,NPISAV,MAXSOL^RN^CN) 

C 

C 

C**^^*^** CATCH— RETRIEVES DATA FROM PART 2A ***** 

C 

C 

IMPLICIT INTEGER (A-Y) 

COMMON /GLBL/ GG(16) 

COMMON /NETDTA/ NN(A800) 

COMMON /LINDTA/ LL(IOOO) 

COMMON /HEADER/ HH(6) 

COMMON /CLNET/ CC(30Q2) 

PASSFL=18 

fiEAD(PASSFL,9DQO,£ND=2000) GS 
9000 FORMAT(20(I4)) 

I DO 100 1=1,4561^20 

j 119=1+19 

REAO(PASSFL,9000,END=2000) (NN(J),J=I,I19> 

^ lOff CONTINUE 

;; READ(PASSFL,9000,END=2000) (NN(J),J =4581 ,4600) 

DO 200 1=1,981,20 
119=1+19 

READ(PASSFL,9000,END=20QO) (LL(J),J=I,I19) 

200 CONTINUE 

DO 300 1=1,2991,10 
19=1+9 


00000760 
00000770 
00000780 
00000790 
00000800 
0000081 0 
00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
K1000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
00001210 
n0001220 

J0001230 

00001240 

'J0001250 

00001260 

00001270 
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READ(PASSFL,9002,ENO=2QOO) Ca<J),JaX,l9) 

300 CONTINUE 

9002 FORMATdOdS)) 

READ(PASSFL,9002,END=2000) CC(3001) ,CC(3002) 
REA0(PASSFL^9Q03,EN0=200Q) HH 

9003 FORMAT (10(A4)) 

REAO(PASSFL,9000^ENI>«2000) ROWS^COLS^NFLSAV^NPISAV^HAXSOL^RN^CN 
PRNTRsGGd) 

WRITE(PRNTR,6000) 

6000 FORHATCODATA TRANSFER COMPLETED*) 

RETURN 

2000 WRITE(6,7000) 

7000 FORMATCOERROR(CATOI) —PASS FILE CORRUPT'^ 

5 • — TRY RE-RUNNING PART 2A TO RE-fiUILD') 

STOP 

END 

SUBROUTINE PLACE 


C 


C 

C 

C PUCE — CONTROLS PLACEMENT ROUTINES 

C 

C 


c 

IMPLICIT INTEGER (A-Y) 

COMMON /GL8L/ PRNTR^R0R,NCELLS,NNETS^NPADS,DEBUG,MXCELS^XXX(9) 
COMMON /FLOOTA/ C(30,100)^N,M,POSd000^2)^NFLSAV,NPISAV 
& ,HAXSOL,RN,CN 

COMMON /NETDTA/ NET(3000) ,WdOOO),PdOO),NETNOS(500) 

COMMON /HEADER/ CAPMCl ,CAPMC2,CAPVER,CAPREV,NAME1 ,NAME2 
COMMON PLPNTd0^2) ^SPACE (30) A0C1000)^C5 (1000)^(1000)^ 

& TEMPdOuO) 

INTEGER oCNdO) 

REAL SORT 

WRITE (PRNTR, 99999) CAPMC1 ,CAPMC2,CAPVER,CAPREV^NAME1^MAME2 
99999 FORMAT! *1 ',40(1 H*)/ CAPSTAR F ',2A4,' V.',A4,' REV.*,A4, 

& 5X, 'NETWORK - ',2A4,5X,'STEP - PLACEMENT') 

C 

C INITIALIZE 

C 

SAVE2=17 
SAVFIL=16 
REWIND SAVFIL 
REWIND SAVE2 
C 

C SET NUMBER SOLUTIONS FOUND, SAVED TO 0 

C 

NFLFND=0 

NSVECP^ 

C 


00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001341 
00001350 
00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
Q0QQ144Q 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
00001590 
00001 6U0 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
Q0QQ1680 
00001690 
00001700 
00001710 
00001720 
00001730 
00001740 
00001750 
00001760 
00001770 
00001780 
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C SET RATING SU«, SUN OF SQUARES TO 0 
C 

ZH=0. 

ZS=0. 

C 

C FORM NEW SOLUTION 
C 

100 IF(NFLFNO.GT.HAXSOL.AND.MAXSOL.NE.O) GO TO 1000 
CALL FOLD(SUCCES,TRIALS) 

C IF NONE FOUND^ GO TO INPROVEMBNT SECTION 
C 

IF(SUCCES.EQ.O) GO TO 1000 
C 

C FOUND ONE— RATE IT 
C 

CALL RATE(RATING,ZUH^ZUV,ZST^O) 

NFLFND=NFLFND+1 

C 

C UPDATE RATING SU«^ SUN OF SQUARES 
C 

ZR=FL0AT(RATING)/1£6 

ZN=ZN+ZR 

ZS=ZS+ZR*ZR 

C 

C COMPUTE CHARACTERIZATION # 

C 

PCN1=0 

DO 102 1=1, N 
PCN1=PCN1+C(I,1) 

102 CONTINUE 

C FORGET DUPLICATE PLACEMENTS 

C 

X1=NSVE0 

IF(X1 .GT.NFLSAV)X1=NFLSAV 
IF(XI.EQ.O) GO TO 104 
DO 103 1=1, XI 

IF(PLPNT(I,1).EQ. RATING. AND.PCN1.EQ.PCN(I))G0 TO 100 

103 CONTINUE 

104 CONTINUE 
C 

C 

C IF NFLSAV NOT YET FOUND, SAVE THIS PLACEMENT 
C 

if(nsved.ge.nflsav)go to 105 
NSVED*NSVED+1 
PLPNTCNSVED,1)=RATING 
PLPNT(NSVED,2)=NFLFND 
PCN<NSVED)=PCN1 
GO TO 120 
C 

C NFLSAV FOUND - MAKE SURE THIS ONE IS BETTER THAN WORST 
C 


00001790 

00001800 

00001810 

00001820 

00001830 

00001840 

00001850 

00001860 

00001870 

00001880 

00001890 

00001900 

00001910 

0C00192Q 

00001930 

00001940 

00001950 

IKI001960 

00001970 

00001980 

00001990 

OD002000 

00002010 

00002020 

00002030 

00002040 

00002050 

000020^0 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002240 

00002250 

00002260 

00002270 

00002280 

00002290 

00002300 
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105 WC=1E8 
«P=0 

00 110 i=i^nflsav 

IF(PLPNT(I,1).GT.yC) GO TO 110 

«C»PLPNT(I^1) 

ypni 

110 CONTINUE 

IF(RATING.LT.yC) GO TO 100 
C BETTER THAN yORST — REPLACE yORST 
PLPNT(yP,1)=RATING 
PLPNT(yP^2)=NFLFN0 
PCN(yP)=PCN1 
NSVED=NSVE0+1 
120 CONTINUE 
C 

C LOAD PLACEMENT TO SAVE FILE 
DO 200 I=1,«XCELS 
TEMP<I)=P0S(I^2)*10**6+P0S(I,1) 

200 CONTINUE 

yfilTE(SAVFIL) NFLFNO, RATING^(TEHP(I),I=MXCELS> 

C 

C A,D DO NEXT PLACEMENT 
C 

GO TO 100 
C 
C 

C PLACEMENT IMPROVEMENT SECTION 

C 

C 

C BOMB OUT IF NO FOLD SOLUTIONS FOUND 
C 

1000 IF(NFLFNO.GT.O) GO TO 1010 
yRITE(PRNTR^7002) TRIALS 

7002 FORMATCONO SOLUTIONS FOUND IN '^16,' TRIES') 

STOP 

C 

C GOT SOME SOLUTIONS — FIND PFLSAV BEST & LOAD POINTERS TO 
C PLPNT 

C 

1010 ENDFILE SAVFIL 
REyiND SAVFIL 
C 

C COMPUTE MEAN^ S.D. 

C 

ZNEAN=ZM/FLOAT(NFLFND) 

ZSD»0. 

IF(NFLFND.EQ.I) GO TO 1020 
ZSDaZS-ZM*ZM/FLOAT(NFLFND) 

ZSD*ZS0/(FL0AT(NFLFND)-1.) 

ZSD»SQRT(ZSD) 

1020 yRITE<PRNTR,7003) NFLFND, TRIALS 

7003 FORMATCO'^15^' SOLUTIONS FOUND IN ^16^' TRIES') 


00002310 

00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

(K]002460 

00002470 

00002480 

00002490 

00002500 

00002510 

00002520 

00002530 

00002540 

00002550 

00002560 

00002570 

00002580 

00002590 

00002600 

00002610 

00002620 

00002630 

00002640 

00002650 

00002660 

00002670 

00002680 

00002690 

00002700 

00002710 

00002720 

00002730 

00002740 

(KJ002750 

00002760 

00002770 

00002780 

00002790 

00002800 

00002810 

00002820 



1 

^ ■ 

] 

c 
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IF(NFLFND.LE.NFLSAV)NFLSAV=NFLFND 

00002830 

00002840 


c 

SORT POINTERS BY RATING 

00002850 


c 


00002860 

{ 


N1=NFLSAV-1 

00002870 ■ 



IF(NI.EQ.O) GO TO 1060 

00002880 ' • 


1025 

FLAG=0 

00002890 

-r 


00 1030 1=1 ,N1 

00002900 

< 


11=1+1 

00002910 

V 


IF(PLPNT(I,1).GE.PLPNT<I1^1)) GO TO 1030 

00002920 


1 

T=PLPNT(I,1) 

00002930 



PLPNT(I,1)=PLPNT(I1^1) 

PLPNT(I1,1)=T 

00002940 
00002950 ^ 

r 


T=PLPNT(I,2) 

00002960 

y 


PLPNT(I,2)=PLPNT(I1^2) 

00002970 



PLPNT(I1,2)=T 

00002980 


1030 

FLAG=1 

CONTINUE 

00002990 

00003000 

1 

! 

C 

C 

IF(FLAG.NE.O) GO TO 1025 
LOAD QUALITIES TO PCN ARRAY 

00003010 ’ 

00003020 

00003030 

1 

i 

i 

1 

C 

i 

1 

i 

DO 1040 I=1,NFLSAV 
CALL QUAL(ZM5AN^ZSD,PLPNTa^1).,Q) 
PCN(I)=Q • ' 

00003040 

00003050 

00003060 

! 

i 

00003070 

I 

; 1 0^0 

CONTINUE 

00003080 

1 

I 1060 

CONTINUE 

00003090 


i 

WRITE (PRNTR, 7004) NFLSAV, (PLPNTCI -2) ^PLPNTU^I) ^PCN(I) ^1=1 ^NFLSAV)00003100 

1 

7004 

F0R«ATC0’,I5/ BEST SELECTED'//' NUMBER RATING'^ 

00003110 

f 


& '-10**6 QUALITY*10**6'//10(/'0'^1X^I4^6X,I7^7X^I7)) 

00003120 

1 

C 


00003130 

\ 

C 

PERFORM PLACEMENT IMPROVEMENT ROUTINE ON NFLSAV BEST PUCEMENTS 

00003140 

i 

C 

- 

000031 50 

fi 

\ 

t 

t 

7020 

WRITE(PRNTR,7020) 

FORMAT COPLACEMENT IMPROVEMENT INITIATED') 

00003160 
00003170 • 


DO 3005 REC1=1-NSVED 

00003180 


READ(SAVFIL) REC, R, (TEMPvJ ) ,J=1 ^MXCELS) 

00003190 

s 

r 


DO 3000 1=1, NFLSAV 

00003200 


IF(REC.NE.PLPNT(I,2)) GO TO 3000 

00003210 

h 

r ■! 

r 


00003220 


c 

REBUILD placement 

00003230 

» 

c 


00003240 


* 

DO 2012 J=1,N 

00003250 

* 


DO 2011 K=1,M 

00q03260 

iJ»^ T 


C(J,K)=0 

00003270 

V 

2011 

CONTINUE 

00003280 

^ ' 

2012 

CONTINUE 

00003290 



DO 2020 J=1,HXCELS 

(X3003300 



P0S(J,2)=TEMP(J)/10**6 

00003310 



POS(J,1)=TEMP(J)-POS(J,2)*10**6 

00003320 

i 


IF(POS(J,1).EQ.O) GO TO 2020 

00003330 

i 

. ^ 1 

^ 1 


E=P0S(J,1)+W(J)-1 

00003340 

: 




:■*%' " 

. ;• ; '■■ . .. . 
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6S1=P0S(J,1) 

00 2015 K=GS1,E 
C(POS(J,2)^IO=J 
2015 CONTINUE 
2020 CONTINUE 

C 

C IMPROVE PLACEMENT 

C 

CALL IMPROV 

CALL RATE(RATING,ZUH^ZUV^ZST^O) 

C 

C UPDATE MEAN & S.D. FOR IMPROVED PLACEMENT 
C 

ZR=FL0AT(RATING)/1E6 

2M=ZM+ZR 

ZS=ZS+ZR*ZR 

MFLFND=NFLFN0+1 

C 

C RE-STORE PLACEMENT 

c 

00 2050 J=1^MXCELS 
TEMP(J)=P0S(J,2)*10**6+P0S<J^1> 

2050 CONTINUE 

WRITE<SAVE2) REC^ RATING, <TENPU)^J=1 ^CEU) 
PLPNT(I,1)=RATIN6 
GO TO 5005 
3000 CONTINUE 
3005 CONTINUE 

ENDFILE SAVE2 
REVIND SAVE2 
WRITE(PRNTR,7021) 

7021 FORMAT COPLACEMENT IMPROVEMENT COMPLETED') 

C 

C RECOMPUTE MEAN AND S.D. 

C 

ZMEAN=ZM/FLOAT(NFLFND) 

ZSD=ZS-ZM*ZM/FLOAT(NFLFNO) 

ZS0=ZSD/(FL0ATCNFLFND)-1.) 

ZSD^SQRTCZSD) 

C 

C PRESENT NPISAV BEST IMPROVED PLACEMENTS 

C 

IF(NFLSAV.LT. NPISAV) NPISAV=NFLSAV 
N1=NFLSAV-1 

IF(NI.EQ.O) GO TO 3030 
3010 FLAW'D 

DO 3020 1=1, N1 

IF(PLPNT(I,1).G£.PLPNT(14‘;,1)) GO TO 302) 
T=PLPNT(I,1) 

PLPNT(I,1)=PLPNT(I+1,1) 

PLPNT(I+1,1)=T 

T=PLPNT(I,2) 


00003350 

00003360 

00003370 

00003380 

00003390 

00003400 

00003410 

00003420 

00003430 

00003440 

00003450 

00003460 

00003470 

00003480 

(X)003490 

00003500 

00003510 

00003520 

00003530 

00003540 

00003550 

00003560 

00003570 

00003580 

00003590 

00003600 

00003610 

00003620 

00003630 

00003640 

^003650 

00003660 

00003670 

00003680 

00003690 

00003700 

00003710 

00003720 

00003730 

00003740 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800 

00003810 

00003820 

00003830 

00003840 

00003850 

00003860 
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PLPNT(I,2)=PLPNTa+1,2) 

PLPNTCI+1^2)=T '*• '' • ' • 

FLAG=1 

3020 CONTINUE 

IF(FLAG.NE.Q) GO TO 3010 • ' ' ' ^ 

WRITE CPRNTR, 7022) 

7022 F0R«AT('O',I4/ BEST PLACEMENTS FOLLOW:') 

3030 DO 4005 REC1=1)NFL:S^AV‘-’^'- 'V • . ‘ ’ 

READCSAVE2) -REC;' R;(t^a),Js1^MXCELS) 
DO 4000 I=1,NPISAV , 

IFCREC.NE.PLPNTCI;^)) GO TO 4000 
DO 3520 J=1^N 
DO 3515 <=1,M 
C(J,IO=0 

3515 CONTINUE ■ ' ' ' ' 

3520 CONTINUE 

DO 3550 J=1,«XCELS 
P0S(J,.2)=TEHP(J)/10**6 
P0S(J,1)=TEMP(J)-POS(J^2)*10**6 
IF(POS(J,1).EQ.O) GO TO 3550 
E=P0S(J,1)+W(J)-1 
GG1=P0S(J,1) 

00 3540 K=GG1,E 
C(P0S(J,2)^K)=J 
3540 CONTINUE 

3550 CONTINUE 

WRITE(PRNTR,7010) SEC 
7010 rORNATCiPLACEMENT NUMBER '^14) 

(.ALL RATE(RATING,ZUH,ZUV,ZST,1) 

C 

C COMPUTE QUALITY OF THIS PLACEMENT 

C 


00003870 

00003880 

00003890 

00003900 

Q0Q03910 

00003920 

00003930 

00003940 

00003950 

00003960 

00003970 

00003980 

00003990 

00004000 

00004010 

00004020 

00004030 

00004040 

00004050 

00004060 

00004070 

00004080 

00004090 

00004100 

00004110 

00004120 

00004130 

00004140 

00004150 

00004160 

00004170 

00004180 


CALL QUAL(ZMEAN,ZSD,RATING^Q) 

ZQ=FL0AT(Q)/1E6 

ZR=RATING/1E4 

URITE(PRNTR,7Q06) ZR^ZUH^ZUV^ZST^ZQ 
7006 FORMATCORATINGS'//' T0TAL',8X, 

& ' ',F8.2/ X'//' HORIZONTAL ',3X^' '/F8.2/ X'//' V'^ 

5 'ERT1CAL',5X/ '/F8.2^' X’//' STRAIGHT NETS ',F8.2,' X' , 

6 ' •///' QUALITY', 7X,' ',F10.5) 

CALL DEPICT 

CALL PADPUT 
CALL OUTBLD 
GO TO 4005 
4000 CONTINUE 
4005 CONTINUE 
RETURN 
END 

SUBROUTINE FOLD(SUCCES,TRIALS) 


00004190 

00004200 

00004210 

00004220 

00004230 

00004240 

00004250 

00004260 

00004270 

00004280 

0000-4290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 
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c 


00004390 

c 

FOLD ROUTINE -- PERFORMS FOLDING PROCEDURE <NEU> 

00004400 

c 

• 

0CH)04410 

e 


00004420 

nrton/ y 7n 



UUuU^^U 

c 


00004440 


IMPLICIT INTEGER (A-Y) 

00004450 


COMMON /GLBL/ PRNTR,RDR,NCELLS^NNETS^NPADS^MBU6paCELt,ni(9) 

00004460 


COMMON /FLDDTA/ C(30^1Q0) ^R0US^COLS/POS(10OO,2),lffUAV,NMXtAV 

00004470 


& ,MAXSOL,RN^CN 

00004430 


COMMON PLPNT(10,2)^3PACE(30>^L0(1Q00)^C3(10O0>A(100O)/ 

00004490 


& TEMP(IQQO) 

00004500 


INTEGER FIRENT/1/ 

00004510 

c 


00004520 

c 

IF NOT FIRST ENTRY, GO TO STAR OVERFLON ROUTINE 

00004530 

c 


00004540 


IF(FIREHT.NE.I) GO TO 6000 

00004550 


RONS1=ROWS-1 

00004560 


FIRENT=0 

00004570 


SUCCES=1 

00004580 


CA=NCELLS-NPADS+1 

00004590 


LBKD^O 

, 00004600 


FOLDEP=ROUS 

00004610 


CALL CROSS 

00004620 


CSAal 

00004630 


TRIALS=1 

00004640 


DO 40 I*1,MXCELS 

0Cffi04650 


POS(I,1)=0 

00004660 


P0S(I,2)=0 

00004670 

40 

CONTINUE 

00004680 

c 

BUILD ARRAY LO (LINEAR ORDER U/0 PADS) 

00004690 

c 


00004700 


DO 50 I=1,NCE».LS 

00004710 


LO(I)=L(I) 

00004720 

so 

CONTINUE 

00004730 

c 


0CK30474O 

c 

START OF 'NEW PUCEMENT* PROCEDURE 

00004750 

c 


00004760 

100 

nOB=1 

00004770 


DO 130 1=1, ROWS 

00004780 


DO 120 J=1,C0LS 

00004790 


C(I,J)=0 

00004800 

1Z0 

CONTINUE 

00004810 


SPACE(I)=COLS 

00004820 

130 

CONTINUE 

00004330 


FLDP=FOLDEP 

(X3004840 


LT0R=1 

00004850 


BASR0W=1 

00004860 


L0PNT«1 

00N4870 


STR0W»1 

0LI00488O 


NROWsO 

00004890 

c 


00004900 


f>'91 


c 

START )F 'PLACE NEXT CELL' ROUTINE 


00004910 

c 



00004920 

1000 

CELL=LCLOPNT) 

• 

00004930 

c 



0QQQ4940 

c 

START OF LOOKBACK ROUTINE 

• 

00004950 

c 



000049o0 


TRY=BASROW-LBKD -,r^Z2 '• 


00004970 


IFCTRY.lt. 1) TRY=1 


00004980 

1005 

IFCTRY.EQ.3ASR0W) GO TO 2000 - 

‘ 

00004990 


CALL PUT(TRY,CELL,COHP,LTOR) 


00005000 


IFCCOWP.Efl.D GO TO 1020 


00005010 


TRY=TRY+1 


00005020 


GO TO 1005 ' ‘ 

. 

00005030 

c 



00005040 

c 

CELL PLACED BY LOOKBACK 


00005050 

c 



00005060 

1020 

LOPNTjH.OPNT+1 


00005070 

C 



00005080 

C 

ALL CELLS PLACED? IF SO^ RETURN SUCCESS • 

- ELSE NEXT CELL 

00005090 

C 



00005100 


IFCLOPNT.GE.CA) go to 20000 


00005110 


GO TO 1000 


00005120 

c 



.00005130 

c 

LOOKBACK NOT USED OR UNSUCCESSFUL — TRY 

ROW OF BASROW, 

00005140 

c 

0ASROU-1+2TTOB >rfITH THE MOST SPACE ON 

IT 

00005150 

c 



00005160 

2000 

Kvi 


00005170 


IFCBASR0W.EQ.1) GO TO 2050 


00005180 


J=BASROy 


00005190 


K=J-1+TT0B+TT0B 


00005200 

c 



00005210 

c 

CHECK FOR ALTERNATE ROW OFF-CHIP 


00005220 

c 



00005230 


IFCCK.LE. ROWS). AND. (K.GE.D) GO TO 2030 


00005240 


CALL PUT* ■ .CELl,,COWP,LTOR) 


00005250 


IF(C0»*-.EQ.1) GO TO 3000 


00005260 


GO TC 2^1*0 

r 

00005270 

2030 

IF(SP»^u£CK).LI .SPACECJ)) GO TO 2040 


00005280 

r 

w 



00005290 

c 

KEEP J= ROW n/ ■l)T space 


00005300 




00005310 




:0005320 


,:=T 


UJ005330 

204w 

CALL PUT(J,CEa,COMP,LTOR) 


00005340 


IF(COMP.EQ.I) GO TO 3000 


00005350 

C 



00005360 

C 

WON’T FIT ON J — TRY K . • 

' 

00005370 

c 



00005380 

2050 

CALL PUT (K, CELL, COMP^LTOR) 


00005390 


IFCCOMP.EQ.I) GO TO 3000 


00005400 

C 



00005410 

C 

FAILURE ON ROWS J AND K — TRY NEXT BASE 

ROW 

00005420 
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C 

2500 BASROyaaASROW-1+TTOa+TTOS 
NR0W»NR0U<^1 
C 

C XF OUT OF ROOM IN BLOCK/ START NEW ONE 
C 

IF((BASROW.EQ.O).OR.(NRON.6E.FLDP)) 00 TO SOOO 
C 

C ELSE/ REPEAT PROCEDURE WITH NEW BASE RON 
C 

00 TO 1000 
C 

C CELL WAS PLACED » BUMP LINEAR ORDER POINTER 
C 

3000 LOPNT=»LOPNT>M 
C 

C IF AU CELLS PUCED/ RETURN SUCCESS 

C 

IF(LOPNT.GE.CA) GO TO 20000 
C 

C l£XT BASE ROW 

C 

BASR0W«BASR0y-1 +TTOB+TTOB 
NROW«NROW*1 
C 

C IF FOLD DEPTH NOT SATISFIED/ KEEP GOINS 
C 

If(NROW.LT.FLDP) GO TO 1000 
C 

C FOLD DEPTH SATISFIED — TURN CORNER (VERTICALLY) 

C 

BASROW«BASROW>M-TTOB-TTOB 

n08=IABS(TT0B-1) 

^ROU^O 
50 TO 1000 
c 

C START OF 'BEGIN NEXT BLOCK* ROUTINE 
C 

5000 STROW-STROW^FOLDEP 
C 

C .f NEXT BLOCK STARTS OFF»CHIP/ DO STAR 
C OVERFLOW PROCEDURE 

C 

IF(STROW.GT.ROWS) 60 TO 6000 
00»STROW>FLDP 
C 

C IF END OF BLOCK OFF-CHIP, REDUCE LOCAL FOLD WPTH 
C 

XFIOO.GT.ROWS) FL0P>R0WS-STR0W>1 
BASROWSTROW 

€ 

C REVESE LEFT-TO-RIGHT SENSE 


00005430 

00005440 

00005450 

00005460 

00005470 

00005480 

00005490 

00005500 

00005510 

00005520 

00005530 

00005540 

00005550 

00005560 

00005570 

00005580 

00005590 

00005600 

00005610 

00005620 

00005630 

00005640 

00005650 

00005660 

00005670 

O00056S0 

00005690 

00005700 

00005710 

0000572r 

0000573U 

00005740 

00005750 

00005760 

00005770 

00005780 

00005790 

00005800 

00005810 

00005820 

00005830 

00005840 

00005850 

00005860 

00005870 

00005880 

00005890 

00005900 

00005910 

00005920 

00005930 

00005940 
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C 

LTORalABS(LTOR-l) 

C 

C ALL BLOCKS START TOP-TO-BOTTOH 

C 

TTOBal 

NROWsQ 

C 

C NEXT CELL 

C 

GO TO 1000 
C 

C START OF STAR OVERFLOy PROCEDURE 

C 

C REDUCE GLOBAL FOLD DEPTH 

C 

6000 FOLDEP=FOLDEP-1 
TRIALS=TR1ALS+1 
C 

C IF >a 2 , START OVER 

C 

IF<F0LDEP.GE.2) GO TO 100 
C 

C ALL FOLD DEPTHS USED — ROTATE 
C 

IF(C5<C5A).EQ.O) 60 TO 6500 
C 

C SET C6 = NEXT ROTATE BOUNDARY 

C 

C6=C5(C5A) 

C5A=C5A+1 

C 

C REBUILD L FROH LO ROTATED ABOUT C6 
C 

K=1 

L(CA)=0 

GG=C6+1 

C4=CA-1 

DO 6100 I=GG,C4 
L(K)=UO(I) 

K=K+1 

6100 CONTINUE 

00 6Z00 I*'1,C6 
L(K)=LOa> 

K«*K*1 

6200 CONTINUE 
C 

C RESET FOLD DEPTH TO MAX AND START OVER 
C 

FOLDEP=ROHS 
GO TO 100 
C 


00005950 

00005960 

00005970 

00005980 

00005990 

00006000 

00006010 

00006020 

00006030 

00006040 

00006050 

00006060 

00006070 

OU006D80 

00006090 

»/..:,a26100 
00006110 
^Of’6120 
00006130 
00006140 
00006150 
00006160 
0000617C 
00006180 
00006190 
00006200 
00006210 
00006220 
00006230 
00006240 
000 06250 
00006260 
000062 
00006280 
00006290 
00006300 
00006310 
C:.006320 
00006330 
00006340 
C0006330 
00006360 
00006370 
O00M380 
00006390 
00006400 
00006410 
00006420 
roO(»6430 
U0006440 
00006450 
00006460 
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C OUT OF ROTATE BOUNDARIES — INCREASE LOOJCBACK DIST. 

C 

C IF ALREADY MAXED OUT, RETURN FAILURE 
C 

6500 IF(LBKD.LT.Rx/WS1) GO TO 6510 
SUCCEScQ 
GO TO 20000 
6510 LBKM.BKD+1 
C 

C RESET FOLD DEPTH AND ROTATION HISTORY AND START OVER 
C 

F(_»'£P=ROHS 
Cl'A-1 

DO 6520 I=1,NCELLS 
L(I)=LO(I) 

6520 CONTINUE 
GO TO 100 
20000 RETURN 
END 

SUBROUTINE PUT (ROW, CELL, COMP,LTOR) 

C 
C 
C 
C 
C 
C 
C 
C 

c 
c 

IMPLICIT INTEGER (A-Y) 

COMMON /NETDTA/ NET(3000),HID(1000),P(100),NETNOS(500) 
COWON /FLDDTA/ C(30,100),R0WS,COLS,POS(100D,2),NF,NP 
& ,MAXSOL,RN,CN 

COMMON PLPNT(10,2),SPACE(30),LO(1000),C5(1000),L(1000), 
& TEMPdOOO) 

C0MP=0 

C 

C CHECK SPACE ON ROW — FAIL IF NOT ENOUGH 
C 

WIDTH=WID(CELL) 

IF(SPACE(ROH).LT. WIDTH) RETURN 
C 

C ENOUGH ROOM — PLACE CELL AT LEFT-MOST SPACE IF LT0R=1 
C AT RIGHT-MOST IF LTOR=0 

C 

C0MP=1 

INDEX=-1+LT0R+LT0R 

K=1 

IF(LTOR.EQ.O) K=C0LS 
500 IF(C(ROW,K).EQ.O) 60 TO 1000 
K=K+INDEX 


PUT — ATTEMPTS TO PLACE CELL ON ROW 
C0MP=1 IF SUCCESSFUL 


00006470 

00006480 

00006490 

00006500 

00006510 

00006520 

00006530 

00006540 

00006550 

00006560 

00006570 

00006580 

00006590 

00006600 

00006610 

00006620 

00006630 

00006640 

00006650 

00006660 

00006670 

00006680 

00006690 

00006700 

00006710 

00006720 

00006730 

00006740 

00006750 

00006760 

00006770 

00006780 

00006790 

00006800 

00006810 

00006820 

00006830 

00006840 

00006850 

00006860 

00006870 

00006880 

00006890 

00006900 

00006910 

00006920 

00006930 

00006940 

00006950 

00006960 

00006970 

00006980 
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GO TO 500 
C 

C FOUND THE PLACE — UPDATE ^ACE 
C 

1000 SPACE(ROW)=SPACE(RQU)-yiDTH 
P0S(CELL^1)=K 
P0S(CELL,2)=R0y 
1010 C(ROU,K)=CELL 
UI0TH=yiDTH-1 
K=K+INDEX 

IFCyiOTH.GT.Q) GO TO 1010 
IF(LTOR.EQ.O) P0S(CELL^1 )=K+1 
RETURN 
END 


00006990 

00007000 

POS^ CHIP ARRAYS 00007010 

00007020 
00007030 
Q00070AO 
00007050 
00007060 
00007070 
00007080 
00007090 
00007100 
00007110 
00007120 
00007130 
00007140 
00007150 
00007160 
00007170 
00007180 
00007190 
00007200 
00007210 
00007220 
00007230 
00007240 
00007250 
00007260 
00007270 
00007280 
00007290 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 
00007360 
00007370 
00007380 
00007390 
00007400 
00007410 
00007420 
00007430 
00007440 
00007450 
00007460 
00007470 
00007480 
00007490 
00007500 


SUBROUTINE INPROV 


C 

c 

C IHPROV — PERFORMS PLACEMENT IMPROVEMENT PROCEDURE 

C 

C 

C***** ***************** *****♦<>* 

c 

IMPLICIT INTEGER (A-Y) 

COMMON /GLBL/ PRNTR,RDR,NCELLS..NNETS,NPADS,DESU3,MXCELS,XXX(9) 
COMMON /FLDDTA/ C(30^100),R0yS^COLS,POS(1000,2)^NF,NP 

5 ,MAXSOL,RN,CN 

COMMON /NETDTA/NET(3QOO),yiDC1000),PAD(100),NETNOS(500) 

COMMON PLPNTC10,2) ,SPACE(30) ,LO(1000) ,C5(1000) ^1 (1000) ^ 

6 TEMP(1Q0O),P(1O00,2) 


100 

C 

C 

C 

C 

c 

C 

C 

C 

110 


SET UP P FOR REAL POSITION ARRAY 

DO 100 I=1,MXCELS 
P(I,1)=P0S(I,1) 

P(I,2)=P0SC^2) 

CONTINUE 

RATE INITIAL PLACEMENT (R=CURRENT BEST RATING) 
CALL RATE(R,ZUH^ZUV^ZST^O) 

***iHr***ROy INTERCHANGE SEGMENT 

SET UP ROW COUNTER (I) & SNAP FLAG (F) 

F=0 

P0H1=R0WS-1 

IF(RN.cQ.O) GO TO 2000 
DO 500 l=1^R0yi 
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C SET UP NEIGHBORHOOD INDEX (L) 

C 

L=1 

C 

C CHECK FOR NEXT RO« OFF-CHIP 
C 

210 IPL=I+L 

IFCIPL.GT.R0WS) GO TO 500 
C 

C TRIAL SWAP ROWS I, I+L 
C 

DO 250 K=1,C0LS 
C1=C(I,K) 

C2=C(IPL,K) 

IF(CI.NE.O) P0S(C1,2)=IPL 
IF(C2.NE.O) POS(C2,2)=I 
C(IPL^K)=C1 
CCI,K)=C2 
250 CONTINUE 
C 

C RATE PLACEMENT WITH SWAPPED ROWS 
C 

CAa RATE(RATING^ZUH,IUV^ZST,0) 

C 

C IF RATING OF NEW > OLD BEST, HAKE 
C 

IFCRATING.LE.R) GO TO 400 
DO 350 K=1,C0LS 
T=C(I,K) 

T1=C(IPL,K) 

IFCT.NE.O) P(T,2)=I 
IFCTI.NE.O) P(T1,2)=IPL 
350 CONTINUE 
R=RATING 
F=1 

GO TO 500 
C 

C NEW PLACEMENT WORSE — UNSWAP 

C 

400 DO 420 K=1,C0LS 

C1=C(I,K) 

C2=C(IPL,K) 

IFCC1.NE.0) P0S(C1,2)=IPL 
IFCC2.NE.0) P0S(C2,2)=I 
C(IPL,K)=C1 
C(I,K)=C2 
420 CONTINUE 
C 

C BUMP NEIGHBORHOOD INDEX 

C 

L=L+1 

C 


00007510 

00007520 

00007530 

00007540 

00007550 

00007560 

00007570 

00007580 

00007590 

00007600 

00007610 

00007620 

00007630 

00007640 

00007650 

00007660 

00007670 

O0007680 

00007690 

00007700 

00007710 

00007720 

00007730 

00007740 

IN REAL 00007750 

00007760 

00007770 

00007780 

00007790 

00007800 

00007810 

00007820 

00007830 

00007840 

00007850 

00007860 

00007870 

00007880 

00007890 

00007900 

00007910 

00007920 

00007930 

00007940 

00007950 

00007960 

00007970 

00007980 

00007990 

00008000 

00008010 

00008020 
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C 

C 

500 

C 

C 

C 

c 

c 

c 

c 

c 

2000 

C 

c 

c 


1010 

c 

c 

c 

1015 


C 

c 

c 

c 

c 

c 

1060 

C 

C 

C 

c 

c 


1070 


CONTINUE IF INDEX WITH NEIGHBORHOOD 

IF(L.LE.RN) GO TO 210 
CONTINUE 

IF ANY SWAPPING DONE, TRY AGAIN 
IF(F.NE.O) GO TO 110 

**<h>*****cell interchange segment 

SET Iff ROW POINTER (I) 

IF(CN.EQ.O) GO TO 3000 
DO 1800 1=1, ROWS 

SET CORI = TO CELLS OR EMPTY TRANSISTORS ON ROW I 

C0RI=0 

CELL=-1 

DO 1010 K=1,C0LS 
lF(Ca,K).EQ.CELL) GO TO 1010 
C0R1=C0RI+1 

IF(C(I,K),NE.O) CELL=C(I,K) 

CONTINUE 

IFCCORI.EQ.I) GO TO 1800 
RESET SWAP FLAG & SET J FOR CELL COUNTING 


F=0 

C0RI1=C0RI-1 
DO 1700 J=1,C0RI1 

SET Iff L FOR NEIGHBORHOOD INDEXING 


L=1 


CHECK FOR END OF ROW 
JPL=J+L 

IF(JPL.GT.CORI) GO TO 1700 

TRIAL SWAP JTH, (J+L)TH CELLS ON ROW I 

FIND JTH,(J+L)TH CELLS 


K1=1 
CNT=0 
CELL=-1 ' 

IF(C(I,K1).EQ.CELL) GO TO 1100 

CNT=CNT+1 

CEa=C<I,Kl) 


00008030 

00008040 

00008050 

00008060 

00008070 

00008080 

00008090 

00008100 

00008110 

00008120 

00008130 

00008140 

00008150 

00008160 

00008170 

00008180 

00008190 

00008200 

00008210 

00008220 

00008230 

00008240 

00008250 

00008260 

00008270 

000082SO 

00008290 

00008300 

00008310 

00008320 

00008330 

00008340 

00008350 

00008360 

00008370 

00008380 

00008390 

00008400 

00008410 

00008420 

00008430 

00008440 

00008450 

00008460 

00008470 

00008480 

M008490 

00008500 

00008510 

00008520 

00008530 

00008540 
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IF(CNT.NE.J) GO TO 1080 

CJaCELL 

PJ=K1 

1080 IF(CNT.EQ.JPL) GO TO 1150 

1100 »(1=K1+1 

IFCCELL.EQ.O) CELL=-1 
GO TO 1070 
1150 CJPL=CELL 

PJPL=K1 
C 

C TRAP OUT CASE WHERE HE 'RE SHARPING EMPTY TRANSISTORS 

C 

IF(CJ.EQ.O.AND.CJPL.EQ.Q) GO TO 1600 
HJ=1 

7F(CJ.NE.0)UJ=UI0(CJ) 

WJP0=1 

IF(CJPL.NE.O) HJPL=HID(CJPL) 

HJPL1=HJPL 

C 

C COPY CELLS TO LEFT OF JTH CELL TO TEMP 

C 

K1=1 

1155 IF(KI.EQ.PJ) GO TO 1160 
TEMP(K1)=C(I^»C1) 

K1=X1+1 
GO TO 1155 
C 

C REPLACE JTH CELL HITH (J+L)TH 

C 

1160 IC2=ia 

1170 TEMP(K2)=CJPL 

K2=K2+1 
HJPL=HJPL-1 

IF(HJPL.NE.Q) GO TO 1170 
C 

C COPY CELLS BETWEEN JTH S (J+L)TH 

C 

K1=K1+HJ 

1180 IF(KI.EQ.PJPL) GO TO 1190 

TEMP(K2)=C(1,K1) 

K1=^U1 
K2=M2+1 
GO TO 1180 
C 

C REPLACE CJ+L)TH WITH JTH CELL 

C 

1190 TEMP(K2)=CJ 

K2=M2+1 
WJ«HJ-1 

IF(HJ.NE.Q) GO TO 1190 
K1=K1+HJPL1 
C 


00008550 
00008560 
00008 5 70 
00008580 
00008590 
QQQ08600 
00008610 
00008620 
00008630 
00008640 
00008650 
00008660 
00008670 
OD0086&0 
00008690 
00008700 
00008710 
00008720 
00008730 
00008740 
00008750 
00008760 
00008770 
00008780 
00008790 
00008800 
00008810 
00008820 
00008830 
00008840 
00008850 
00008860 
00008870 
00008880 
00008890 
00008900 
00008910 
00008920 
00008930 
00008940 
00008950 
00008960 
00008970 
00008980 
00008990 
00009000 
00009010 
00009020 
00009030 
00009040 
00009050 
00009060 
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C COPY CELLS TO RIGHT OF (J+UTH 

C 

1200 IFCKI.GT.COLS) GO TO 1210 

TEHP(Kl>=Ca,Kl) 

K1=K1+1 
GO TO 1200 
C 
C 

C CELLS ARE SWAPPED IN TEMP ARRAY — HAKE CHANGES TO POS 

C 

1210 CELL=0 

DO 1220 <1=1, COLS 
IF(TENP«1).EQ.CELL) GO TO 1220 
CELL=TEflP«1) 

IF(CELL.NE.O) P0S(CELL,1 )=K1 
1220 CONTINUE 

DO 1225 <1=1, COLS 
GHC5=TEMP«1) 

TEMP«1) = C(T,<1) 

C(I,<1)=GWC5 
1225 CONTINUE 
C 

C CELLS SWAPPED — RATE 

C 

CALL RATE(RATING,IUH,ZUV,ZST,0) 

C 

C IF BETTER, MA<E SWAP IN REAL 

C 

IF(RATING.LE.R) GO TO 1350 
DO 1310 <=1,C0LS 
T1=TEPSP«) 

IF(T1.NE.O)P(T1,1)=POS(T1,1) 

1310 CONTINUE 
R=RATING 
F=1 

GO TO 1700 
C 

C WORSE ~ UNSWAP 

C 

1350 DO 1360 <=1,C0LS 

T1=TEHP«) 

IF(TI.NE.O) P0S(T1,1)=P<T1,1) 

C(I,0=T1 
1360 CONTINUE 

C 

C BUMP NEIGHBORHOOD INDEX 

C 

1 600 L=L+1 

C 

C IF STILL IN SAME NEIGHBORHOOD, CONTINUE 

C 

IF(L.LE.CN) 60 TO 1060 


00009070 

00009080 

00009090 

00009100 

00009110 

00009120 

00009130 

00009140 

00009150 

00009160 

00009170 

00009180 

00009190 

00009200 

00009210 

000092^0 

0000923J 

00009240 

C0009250 

00009260 

00009270 

00009280 

00009290 

00009300 

00009310 

00009320 

00009330 

00009340 

00009350 

00009360 

00009370 

00009380 

00009390 

00009400 

C0009410 

00009420 

03009430 

00009440 

00009450 

00009460 

00009470 

00009480 

00009490 

00009500 

00009510 

00009520 

00009530 

00009540 

03009550 

00009560 

00009570 

00009580 
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c 

C NEIGHBORHOOD DONE — BLMP J 

1700 CONTINUE 
C 

C ROW DONE — IF ANY SWAPS MADE, REPEAT 

C 

IF(F.EQ.I) GO TO 1015 
C 

C NEXT ROW 

C 

1800 CONTINUE 
3000 CONTINUE 
RETURN 
END 

SUBROUTINE MSFCF 


C 


C 

C 

C MSFCF — SHOWS PLACEMENT IN HSFC FORMAT 

C 

C 


C 

IMPLICIT INTEGER(A-Y) 

COMMON /GLBL/ PRNTR,ROR,NCELLS ^NNETS^NPADS, DEBUG, MXCELS,XXX(9) 
COMMON /FLDDTA/ C(30, 100) , ROWS, COLS,POS(1000,2) ,NFL,NPI 
& ,MAXSOL,RN,CN 
COMMON /PADPL/ ZPDPLC(100,2) 

COMMON /NETOTA/ NN(3000),WID(1000),PA0S(100),NETNOSC500) 
INTEGER TEMP(200) 

WRITE(PRNTR,7001) 

7ffi)1 FORMAT C1PLACEM*) 

WRITE(19,8001) 

8001 FORMAT('PLACEM') 

0DD=1 

DO 500 1=1, ROUS 
C 

C FORM Y-COORD FOR ROW 
C 

ODD=-ODD 

IF(ODD.LT.O) RW=17+8*I 
IF(ODD.GT.O) RW=-(25+8*I) 

NTMP=0 

LCL=0 


C 

C SET COLUMN POINTER (J) 
C 

J=1 


C 

C CHECK FOR EMPTY CELLS 

C 


00009590 

00009600 

00009610 

00009620 

00009630 

00009640 

00009650 

00009660 

00009670 

00009680 

00009690 

00009700 

00009710 

00009720 

00009730 

00009740 

00009750 

00009760 

00009770 

00009780 

00009790 

00009800 

00009810 

00009820 

00009830 

00009840 

00009850 

00009860 

00009870 

00009880 

00009890 

00009900 

00009910 

00009920 

00009930 

00009940 

00009950 

00009960 

00009970 

00009980 

00009990 

00010000 

00010010 

00010020 

00010030 

00010040 

00010050 

00010060 

00010070 

00010080 

00010090 

00010100 
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100 IF(C(I,J).EQ.O) GO TO 200 
C 

C NOT EMPTY — SANE AS LAST CELL? 

C 

IF<C(I^J).EQ.LCL) 60 TO 400 
C 

C NOT THE SAME ~ ADD TO TEMP ARRAY 

C 

LCL=C(I,J) 

START=J 
CELL =LCL 
GO TO 250 
C 

C HANDLE EMPTY CELLS 

C 

200 CELL=999000 

START=J 

210 CELL=CELL+1 

J=J+1 

IF((J.LE. COLS). AND. (C(I,J).EQ.O)) GO TO 210 
J=J-1 
C 

C ADD CELL U, X-COORD TO TEMP ARRAY 

C 

250 NTMP=NTMP+1 

TEflP(NTMP)=CELL 

NTMP=NTMP+1 

TEMP(N'mP)=3*START+22 

C 

C NEXT COLUMN 

C 

400 J=J+1 

IF(J.LE.COLS) GO TO 100 
C 

C ROy DONE — PRINT DATA 

C 

IND=1 

410 JND=IN0+7 

IF(JND.GT.NTMP) JNO=NTMP 
WRITE(PRNTR^7002) Ry^(TEMP(K) ^K=IND,JNO) 

7002 F0RMATC'0',9(17)) 

WRITE(19^7003) RH^CTEMP(K)^KbIND,JNO) 

7003 F0RMAT(9(I7)) 

IND=IND+8 

IF(IND.LE.NTMP) GO TO 410 
C 

C NEXT ROy 

C 

500 CONTINUE 
C 

C SHOW PAD PLACEMENT 
C 


00010110 

00010120 

00010130 

00010140 

00010150 

00010160 

00010170 

00010180 

00010190 

00010200 

00010210 

CH>010220 

00010230 

00010240 

00010250 

00010260 

00010270 

00010280 

00010290 

00010300 

00010310 

00010320 

00010330 

00010340 

00010350 

00010360 

00010370 

00010380 

00010390 

00010400 

00010410 

00010420 

00010430 

00010440 

00010450 

00010460 

00010470 

00010480 

00010490 

00010500 

00010510 

00010520 

00010530 

00010540 

00010550 

00010560 

00010570 

00010580 

00010590 

00010600 

00010610 

00010620 
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DO 1000 I=1^NPADS 
ZR=2PDfn.C(I,2) 

ZC»ZPDPLC(I,1) 

IF((ZR.LT.1.E-6).0R.(ZR.GT.R0yS)) XoINT(ZC*3.+15.5) 
IF(ZC.LT.1.E-6) X=17 
IF(ZC.GT.COLS) X=INT(ZC*3.+21.5) 

IF(ZR.LT.1.E-6) Y=-25 
lF<ZR.GT.ROyS) Y=INT(ZR*8.+17.5) 
7F<(ZC.LT.1.E-6).0R.(ZC.6T.C0LS)) Y=INTCZR*8.+13.5) 
URITE(PRNTR,7002) Y,PADS(I)^X 
WRITE(19^7003) Y,PA0S(I),X 
1000 CONTINUE 
RETURN 
END 

SUBROUTINE CROSS 
C 
C 

C********** CROSS ROUTINE ****** k i r kittiniit**** 

C 

C 

c 

INPLICIT INTEGER (A-Y) 

COnHON /Giai/ PRNTR,RDR,NCELLS,NNETS^NPADS, DEBUG 
8 ,NXCELS^NXNETS,MXCLNT,HXCLUS^HXNTSZ,BXPADS,HXNTCL 
& ^HXROyS^NXCOLS^HXDFSZ 

COWNON /NETDTA/ INP(3000),yiDC1000),PAO(100),NETNOS(500) 
COMMON /LINDTA/ LINORD(IOOO) 

COMMON PLPNT(10,2),SPACE(3Q),LO<100Q)^CR1(1000)^L(1000), 
ft TEMP{1000),CR(1000),T(70) 

REAL CR 

C SET UP DUMMY LINEAR ORDER 


C 

DO 10060 I=1,NCELLS 
L(I)=LINORD(I) 

10060 CONTINUE 

L(NCELLS+1)=Q 

C 

C ELIMINATE PADS FROM LINEAR ORDER 
C 

DO 10160 I=1,MXPADS 
GG61=PAD(I) 

IF(GGGI.EQ.O) GO TO 10180 
DO 10130 J=1,MXCELS 
IF(L(J).EQ.GGG1) GO TO 10135 

10130 CONTINUE 
yRITECPRNTR, 10131) GGG1 

10131 FORMATCOyARNING(CROOI) ~ PAD 
GO TO 10160 

10135 DO 10150 K=J^MXCELS 

IF<L(K).EQ.O) GO TO 10160 
L(K)aL(K+1) 

10150 CONTINUE 


00010630 
00010640 
00010650 
00010660 
00010670 
00010680 
00010690 
00010700 
00010710 
00010720 
00010730 
00010740 
00010750 
00010760 
0U01077C 
CH010780 
00010790 
00010800 
00010810 
00010820 
00010830 
00010840 
00010850 
00010860 
00010870 
00010880 
00010890 
00010900 
00010910 
00010920 
00010930 
00010940 
00010950 
00010960 
00010970 
00010980 
00010990 
00011000 
00011010 
00011020 
00011030 
00011040 
00011050 
00011060 
00011070 
00011080 

•,I4^’ NOT IN LINEAR ORDER') 00011090 

00011100 

00011110 

00011120 

00011130 

00011140 
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10160 

CONTINUE 


00011150 

C 



00011160 

C 

CLEAR OUT CROSSING ARRAY 

■ 

00011170 

c 



00011180 

10180 

00 10190 I=1,NCELLS 


00011190 


CR(I)=0. 


00011200 

10190 

CONTINUE 


00011210 

C 



00011220 

c 

FIND NETS CROSSING AT EACH BOUNDARY 

00011230 

c 



00011240 


1=1 


00011250 

c 



00011260 

c 

aEAR T ARRAY TO HOLD CURRENT 

NET 

00011270 

c 



00011280 

10220 

DO 10230 11=1,70 


00011290 


T(II)=0 


00011300 

10230 

CONTINUE 


00011310 


K=1 


00011320 

C 



00011330 

C 

CHECK FOR END OF NETS 


00011340 

C 



00011350 

10240 

IF(INP(I).EQ.-1) GO TO 10500 


00011360 

C 



00011370 

C 

CHECK FOR END OF THIS NET 


00011380 

C 



03011390 


IFCINPCD.EQ.O) GO TO 10300 


00011400 

c 



00011410 

c 

ADD THIS CELL TO ARRAY T 


00011420 

c 



00011430 


TA=INP<I) 


00011440 


DO 10274 J1=1,WXCELS 


00011450 


IF(L\J1) .EQ.TA) GO TO 10280 


00011^60 


IF(JI.GT.NCELLS) GO TO 10285 


130011470 

10274 

CONTINUE 


00011480 

10280 

T(K)=TA 


00011490 


K=K+1 


00011500 

10285 

1=1+1 


00011510 


GO TO 10240 


00011520 

C 



00011530 

C 

UPDATE CROSS ARRAY FRO THIS NET 

00011540 

C 



00011550 

10300 

IFCK.GT.2) GO TO 10310 


00011560 


1=1+1 


00011570 


GO TO 10220 


00011580 

10310 

J=1 


00011590 

C 



00011600 

c 

LOOK FOR CELL AT L(J) IN THIS 

NET 

00011610 

c 



00011620 

10315 

DO 10320 J1=1,70 


00011630 


GG=T(J1) 


00011640 


IF(GG.EQ.L(J)) GO TO 10350 


00011650 


IF(GG.NE.O) GO TO 10320 


00011660 
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J*J-M 



00011670 

GO TO 10315 



00011680 

10320 CONTINUE 



0)011690 

c 



00011700 

C CEa AT L(J) IS FIRST OCCURRENCE OF CELLS 

00011710 

C IN THIS NET— ADD 1 TO EACH CROSSING 

UNTIL 

00011720 

C CEUS HAVE BEEN FOUND 




C 




10350 K=K-1 



0^117.0 

10300 K=K-1 



0001176b 

IFCK.NE.O) GO TO 10370 



00011770 

1=1+1 



00011780 

GO TO 10220 



00011790 

10370 CR(J)=CR(J)+1. 



00011800 

JaJ+1 



00011810 

DO 10380 J1=1,70 



00011820 

G6=T(J1) 



00011830 

IF(GG.EQ.LCJ)) go TO 10360 



00011840 

IF(GG.EQ.O) GO TO 10370 



00011850 

10380 CONTINUE 



00011860 

URITECPRNTR, 10381) 



00011870 

103S1 FORMATCQERROR(CROOI) —OUT OF 

SPACE 

IN T ARRAY') 

00011880 

STOP 



00011890 

C 



00011900 

i C 



00011910 

C SORT CROSSINGS IN DESCENDING ORDER 


00011920 

C 



00011930 

C 



00011940 

10500 DO 10510 I=1,HXCELS 



00011950 

IF(L(I).EQ.O) GO TO 10515 



00011960 

? 10510 CONTINUE 



00011970 

1 HRITECPRNTR, 10512) 



00011980 

i 10512 FORHAT('0ERROR(CRO02) —OUT OF 

SPACE 

IN L ARRAY') 

00011990 

; STOP 



00012000 

! 10515 LAST=I-2 



00012010 

1 DO 10540 1=1, LAST 



00012020 

j ZI=FLOAT(I) 



00012030 

! CR{I)=CR(I)+ZI/1000. 



00012040 

1 10540 CONTINUE 



00012050 

1 10550 FLAG=0 



00012060 

00=LAST-1 



00012070 

DO 10580 1=1,00 



00012080 

f. Z001=CR(I+1) 



00012090 

f IF(CR(I).LT.Z001) GO TO 10580 



00012100 

\ CR(I+1)=CR(I) 



00012110 

; Cf;(I)=Z00l 



00012120 

fi FLAS=1 



00012130 

f. 10580 CONTINUE 



00012140 

^ IF(FLAG.NE.O) GO TO 10550 



00012150 

C 



00012160 

C FORK FINAL CROSSING ARRAY 



00012170 

c 



00012180 

5 

i 

i 
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DO 10680 lal^LAST 

00012190 


ZCaCR(I) 

00012200 


ZC«ZC-FL0AT(IFIX(ZC+.000D) 

00012210 


CR1(I)=IFIX<ZC»1000.+.5) 

00012220 

10630 

1 CONTINUE 

00012230 


CR1(LAST+1)=0 

00012240 


IF(DEBUG.EQ.O) GO TO 20000 

00012250 


WRITE(PRNTR,1001) 

00012260 

1001 

FORHAT('0',2OX/CR0SSING DATA*) 

00012270 


DO 1003 1=1,200 

00012280 


IF(CRKI).EQ.Q) GO TO 20000 

00012290 


WRITE(PRNTR,1Q02) CR(I),CR1(I) 

00012300 

1002 

F0RWAT('0',20X,F12.4,4X,I4) 

00012310 

1003 

CONTINUE 

00012320 

20000 

1 RETURN 

00012330 


END 

00012340 


SUBROUTINE RATE(RATING,ZUHAV,ZUV,ZSNP,SWIT) 

00012350 

C 


00012360 


00012370 

c 


00012380 

c 


00012390 

c 

RATER ROUTINE— FORMS PLACEMENT RATINGS 

00012400 

c 


00012410 

c 


00012420 


00012430 

c 


00012440 


IMPLICIT INTEGER (A-Y) 

00012450 


COMMON /GLBL/ PRNTR,RDR,NCELLS,NNETS,NPADS, DEBUG 

000-' ' 


& ,MXCELS,MXNETS,MXCLNT,MXCLUS,MXNTSZ,MXPADS,MXNTCL 

000 


& ,MXROWS,MXCOLS,MXDFSZ 

OC '1 0 


COMMON /NETDTA/ N(3000) ,WID(1000) ,PAD(100) ,NETN0S(500) 

00012490 


CQ'fflON /FLDDTA/ C7C30, 100), ROWS, CXS,POS(1000,2),NFLSAV,NPISAV 

00012500 


& ,MAXSOL,RN,CN 

00012510 

c 


00012520 

c 


00012530 


0ESTH=O 

00012540 


U0RSTH=0 

00012550 


V=0 

00012560 


NETPNT=1 

00012570 


NET=1 

X012580 


NETS=0 

00012590 


NSTR8=0 

00012600 

c 


00012610 

C 

FORM LEFT,RIGHT,T0P,B0n0M,S1,S2 DATA FOR EACH NET 

00012620 

C 


00012630 

500 

MINSJ=99999 

00012640 


MAXSK=0 

00012650 


MINRJ=99999 

00012660 


MAXRK=0 

00012670 


MINSJP=99999 

00012680 


MAXSKP=0 

00012690 


CELLS=0 

00012700 
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1000 CELL=N(NETPNT) 

C 

C END OF NET? 

C 

IF(CEa.EQ.O) GO TO 2000 
C 

C NO — PAD? 

c 

S=POS( CELLED 
IF<S.EQ.Q> GO TO 1100 
C 

C NO — RESET CURRENT NET BOUNDS IF Nt'.jED 
C 

CELLS“CELLS+1 

R=P0SCCELL,2) 

IFCNINSJ.GT.S) HINSJ=S 
IFCNAXStC.LT.S) «AXSK=S 
IFCNINRJ.GT.R1 MINRJ=R 
IF(HAXRK.LT.R) NAXRK=R 
SJP=S+yiD(CELL)-1 
IFCBINSJP.GT.SJP) HINSJP=S.’P 
IF(HAXSKP.LT.SJP) MAXSKP=SwP 
1100 NETPNT*NETPNT+1 
GO TO 1000 
C 

C END OF NET SEEN — UPDATE bETSH^ WRST^ V 
C 

2000 IFCCELLS.LT.2) GO TO 3000 

IF(«INSJP.LT.nAXSK)BESTH=BESTH+MAXSK-«INSJP+1 
IF(HINSJ.LE.HAXSKP)yORSTfi=UORSTH*«AXSICP-«lNSJ<’1 
IF(HINRJ .LT.MAXRlOVoV+MAXRK-NINRJ+1 
2210 CONTINUE 

NETS=NETS+1 

C 

C STK-' iGHT NET? 

C 

IF((N1NRJ.NE.NAXRK}.AN0.(N1NSJP.LT.MAXSK}>G0 TO 3000 
C 

C YES — UPDATE RECORDS 

C 

NSTR8=NSTRS+1 

IF(SyiT.NE.O) yRITE(PRNTR,7002) NETNOS(NET) 

7002 F0RHAT('0',12X/NET ',15/ STRAIGHT') 

C 

C IF NOT END OF NET LIST, CONTINUE WITH NEXT NET 
C 

3000 NETPNT=NETPNT*1 
NET**NET+1 

IF(NCNETPNT).NE.-I) GO TO 500 
C 

C RATE EMPTY TRANSISTOR PLACEMENT 
C 


00012710 
00012720 
00012730 
00012740 
00012750 
00012760 
00012770 
00012780 
00012790 
00012800 
00012810 
00012820 
00012830 
00012840 
00012850 
00012860 
00012870 
00012880 
00012890 
00012900 
00012910 
00012920 
00012930 
0001 ?940 
00012950 
00012960 
00012970 
00012980 
00012990 
00013000 
00013010 
00013020 
00013030 
00013040 
00013050 
00013060 
00013070 
00013080 
00013090 
00013100 
00013110 
00013120 
00013130 
00013140 
00013150 
00013160 
00013170 
00013180 
00013190 
00013200 
00013210 
00013220 
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ZNUHETaO 

2ETD=0. 

ZCCOLaFLOAT(COLS)/2. 

DO 8800 1=1, ROUS 
DO 8799 J=1,C0LS 
1F(C7(1,J).NE.0) 60 TO 8799 
ZNimET=ZNUHET+1 . 

Z ETD=Z ET D+ABS ( F LOAT ( J ) -Z CCOU 

8799 CONTINUE 

8800 CONTINUE 
ZROUS=FL0AT(ROUS) 

ZETR=(ZNUNET/2.)*(C0LS -1 .-<ZNUNET/2./ZR0WS>) 
ZETR=ZETO/ZETR 

C END OF ENT LIST — SHOU RATINGS 
C 

Z SNF»= C FLOAT (NSTR8 ) / FLOAT (NETS) )*1 00 . 

ZUHAV=BESTH+UORSTH 

ZUHAV= (ZUHAV*1 2 . 5) / (ROUS*COLS) 

ZUV=(V*100.) /(ROUS*COLS) 

C 

C CONFUTE TOTAL RATING 
C 

ZU=ZUV 

ZB=ZUHAV 

IF(ZUV.GE.ZUHAV) GO TO 4300 

ZU=ZB 

ZB=ZUV 

4300 ZTR= ( . 06) *ZU+ ( .02) *ZB+1 .-( .01 )*ZSNP+2*Z ETR 
ZTR=1.-ZTR/11. 

RATIN6=IFIX(ZTR*1E6) 

RETURN 

END 

SUBROUTINE QUAL(ZNEAN,ZSD,RTON,Q) 

C 

c 

c 

C aUAL - ESTINATES PLACENENT QUALITY BASED ON RATINGS OF 
C PLACENENTS FOUND (USES N.B.S. EQUATION FOR AREA 

C UNDER NORMAL CURVE) 

C 

C 


IMPLICIT INTEGER (A-Y) 

REAL EXP 

ZR=FL0AT(RT0H)/1E6 

ZX=(ZR-ZMEAN)/ZSD 

Z1=(.398942)*EXP(-ZX*ZX/2.) 

ZT=1./(1.+(.2316419)*ZX) 

Z2»ZT*(-1.821256+(1.330274)*ZT) 

Z3“2T*(1.781478+Z2) 


00013230 

00013240 

00013250 

00013260 

00013270 

00013280 

00013290 

00013300 

00013310 

00013320 

00013330 

00013340 

00013350 

00013360 

00013370 

00013380 

00013390 

00013400 

00013410 

00013420 

00013430 

00013440 

00013450 

00013460 

0C313470 

00013480 

00013490 

00Q1350Q 

00013510 

00013520 

00013530 

00013540 

00013550 

00013560 

00013570 

00013580 

00013590 

00013600 

00013610 

00013620 

00013630 

00013640 

00013650 

00013660 

00013670 

00013680 

00013690 

00013700 

00013710 

00013720 

00013730 

00013740 


'J 




■ 
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i 


Z4=2T*(-.356564+Z3) 

00013750 



Z5=ZT*(.3193815+Z4) 

00013760 


1 

ZQa(1.-Z1*Z5) 

OOQ13770 



Q=ZQ*1E6 

00013780 


i 

' 1 

RETURN 

00013790 



END 

00013800 


^ 1 

SUBROUTINE DEPICT 

00013810 

• 

vi c 


00013820 


c******************************* ******* ************ 

00013830 


c 


00013840 

- 

c 


00013850 


c 

DEPICT ROUTINE ~ OUTPUTS STAR IMAGE (WITH 

00013860 

c. 

c 

NET <fS) ON OUTPUT MEDIUM 

00013870 


c 


00013880 


c 


00013890 


C**'********************* ********************* ****** 

00013900 


c 


00013910 



IMPLICIT INTEGER (A-Y) 

00013920 



COMMON /GLBL/ PRNTR,ROR,NCELLS,NNETS^NPADS,DEBUG 

00013930 



& ,MXCELS,MXNETS,MXCLNT,MXCLUS^MXNTSZ^HXPADS,fWNTCL 

00013940 



& ,MXROWS^«XCOLS,MXDFSZ 

00013950 



COMMON/NETDTA/ NETS (3000) >aDTH (1 000) ,PAD(100) ,HETN0S(50D) 

00013960 



COMMON/CLNET/CLNTS(3Q00),LSTCEL^FRSCLU 

00013970 



COMMON/FLDDTA/ CHIP(30^100) ,ROWS,COLS^POS(1000^2) ^NFLSAV^NPISAV 

00013980 



& ,MAXSOL,RN,CN 

00013990 

1 


INTEGER CHAR(14)/'0 '/I '/2 '/3 \ 

00014000 

1 


S’4 '/5 '/6 '/7 '/8 */9 

00014010 

1 


&• '/# ■/: ■/ 

00014020 



COMMON PLPNT(10,2),LINE1 (1 30) ,LINE2(130) ,LINE3C1S0) 

00014030 

i 

V 


& ,NUMNET(1 000), START (1000) ^T(800) 

00014040 


c 


00014050 


c 

SET INITIAL LINE WIDTH 

00014060 


c 


00014070 



LINHID=7Q 

00014080 


c 


00014390 


c 

ZERO OUT WORKING ARRAYS 

00014100 


c 


00014110 



DO 10400 I=1,MXCELS 

00014120 



NUMNET(I)=Q 

00014130 



START(I)=0 

00014140 


104QQ 

CONTINUE 

00014150 


c 


00014160 


c 

FIND NUMNETS, START FOR EACH CELL 

00014170 


c 


00014180 



F1»FRSCLU-1 

00014190 



DO 10480 1=1, FI 

00014200 



00=CLNTS(I)/1000 

00014210 


I 

NUMNET(00)=NUMNET(00)+1 

00014220 


! 

IF(START(00).EQ.O) START(00)al 

00014230 


10480 

CONTINUE 

00014240 


C 


00014250 


C 

SET TRANSISTOR WIDTH 

00014260 


'■2^ • 
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c 


00014270 


TRNWI0=0 

00014280 


DO 10600 1=1, FI 

00014290 


00=CLNTS(I)/1000 

00014300 


IF(WIDTK(00).EQ.O) GO TO 10600 

00014310 


TT=00 

00014320 


TRY=IFIX((2*(NUMNET(TT)+1))/WIDTH(TT)+.99) 

00014330 


IF(TRY.GT.TRNUID) TRNWIO=TRY 

00014340 

10^00 

CONTINUE 

00014350 


IF(TRNUID.LT.2) TRNyiO=2 

00014360 

c 


00014370 

c 

SET » TRANSISTORS / LINE 

00014380 

c 


00014390 


TPL=0 

00014400 

10680 

TPL=TPL+1 

00014410 


00=TPL*(TRNWID+1)+1 

00014420 


IF(OO.LT.LINUID) 60 TO 10680 

00014430 

C 


00014440 

C 

ADJUST LINE WIDTH 

00014450 

C 


00014460 


TPL=TPL-1 

00014470 


LlNWID=TPL*CTRNyiD+1)+1 

00014480 

c 


00014490 

c 

SET BASE, ROW FOR OUTPUT 

00014500 

c 


00014510 


BASE=1 

00014520 


CALL FIGG£R(3ASE,QASE,TT,ENDR,TRNUID) 

00014530 

11320 

R0W=1 

00014540 

C 


00014550 

c 

PRINT PAGE HEADER 

00014560 

c 


00014570 


WRITE(PRNTR, 11341) 

00014580 

11341 

FORMATCO'///) 

00014590 


WRITECPRNTR, 11343) 

00014600 

11343 

FORMATCO'//) 

00014610 

C 


00014620 

C 

IF THIS IS LAST PAGE, ADJUST LINE WIDTH TO ACTUAL 

00014630 

C 

WIDTH REMAINING 

00014640 

C 


00014650 

11360 

00=BASE+LINWID 

00014660 


IF(ENDR.LT.OO) LINUID=ENDR-SASE+2 

00014670 

C 


00014680 

C 

PRINT TOP OF CELL ROW 

00014690 

c 


00014700 


00 11380 I=1,LINWID 

00014710 


LINE1 (I)=CHAR(12) 

00014720 

11380 

CONTINUE 

00014730 


00=LINWID-1 

00014740 


WRITECPRNTR, 11 382) (LINEI (I) ,1=1 ,00) 

00014750 

11382 

FORMATC ',130(AD) 

00014760 

C 


00014770 

C 

aEAR CELL ROW STRINGS 

00014780 
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c 

1=1 

001=BASE+LINWID-2 
DO 11620 C0L=BASE,001 
CALL FZGGER(ROy^COL,n^ENOR,TRNUlD) 

C 

C ADD APPR. N0N-NUF1ERIC CHARACTERS TO STRINGS 
C 

IFCTT.GE.IQQO) GO TO 11600 
D=CHAR(TT+11) 

LINE1CI)=D 
LINE2(I)=D 
LINE3(n=D 
GO TO 11619 
C 

C NUMBER ENCOUNTERED IN TEMPLATE— CONVERT TO 
C CHARS AND ADD ONE CHAR TO EACH STRING 
C 

11600 OO=TT-1Q0O 
D1=(00/10Q) 

D2=(00/10)-(D1*10) 

D3=00-(D2*10)-CD1*100) 

11610 IFCDl.NE.O) GO TO 11615 
D1=D2 • 

D2=D3 

D3=10 

GO TO 11610 
11615 CONTINUE 

LINE1 (I)=CHAR(D1+11 
L1NE2(I)=CHARCD2+1) 

LINE3(I)=CHAR(D3+1) 

11619 1=1+1 

11620 CONTINUE 
1 = 1-1 

C 

C PRINT CELL ROW STRINGS 

C 

WRITECPRNTR, 11640) (LINE1 <J) ,J=1 ,1) 
WRITECPRNTR, 11640) (LINE2(J) ,J=1 ,1) 

WRITE (PRNTR,1 1640) (LINE3(J),J=1,1) 

11640 FORHATC M30(AD) 

C 

C BUMP TEMPLATE ROW POINTER 

C 

R0W=R0W+1 

IF(ROW.LE.ROWS) GO TO 11360 
C 

C ALL ROWS HANDLED^ PRINT STAR BOTTOM 
C 

DO 11680 I=1,LINW1D 
LINE1(I)=CHARC12) 

11680 CONTINUE 


TO014790 

00014800 

00014810 

00014820 

00014830 

00014840 

00014850 

00014860 

00014870 

00014880 

00014890 

00014900 

00014910 

00014920 

00014930 

00014940 

00014950 

00014960 

00014970 

00014980 

00014990 

00015000 

00015010 

00015020 

00015030 

K)015040 

00015050 

"0015060 

00015070 

00015080 

00015090 

00015100 

00015110 

00015120 

00015130 

00015140 

00015150 

00015160 

00015170 

00015130 

00015190 

00015200 

00015210 

00015220 

00015230 

00015240 

00015250 

00015260 

00015270 

00015230 

00015290 

00015300 
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00=LINUID-1 

URITECPRNTR, 11681 ) (LINE1 (I) ^1=1 ^00) 

11681 FORMATC ',130(A1)) 

C 

C SET UP POINTERS FOR NEXT PAGE 

C 

BASE=BASE+L1NWID-1 
00=TRNUID*(C0LS+1)+1 
IF(BASE.LE.OO) GO TO 11320 
IF(BASE.LE.ENDR) GO TO 11320 
C 

C NORMAL EXIT 

C 

RETURN 

END 

SUBROUTINE FIGGER (ROU^COLI ,TT1 ^ENOR^TRNyiD) 

C 

C 

C**r********<,****^f*FIGGEft— simulate's LARGE OUTPUT TEMPLATE 
C NEEDED FOR LARGE STAR 

C 
C 

IMPLICIT INTEGER (A-Y) 

COMMON /GLBL/PRNTR,ROR,NCELLS,NNETS,NPADS^DEBUG^XXX(10) 

COMMON /NETDTA/ NETS (3000) , WIDTH (1 000) ^PAD (1Q0) ^NETNOSCSOO) 
COMMON /CLNET/CLNTS(3000),LSTCEL,FRSCLU 

COMMON /FLODTA/ CHIP(30,1Q0) ,ROUS^COLS/POS(1000,2) ,NFLSAV/1PISAV 
& ,MAXSOL,RN,CN 

COMMON PLPNT(10,2),XX(390),NUMNET(1000)^START(1000),T(800) 
INTEGER USROU/0/ 

C 

C IF SAME ROW AS LAST REQUEST, LOOK UP IN T ARRAY 
C 

IF(ROH.EQ.LASROU) GO TO 11260 

LASROU=ROU 

NETIND=D 

00=((TRNHID+1)*COLS)+10 
DO 10800 J=1,C0 
T(J)=0 

10800 CONTINUE 
C 

C FOkM l-hand edge 

c 

TC1)=1 

TT=1 

C FORM TRANS BOUNDARIES 

C 

C=0 

1086') T"=TT+TRNWID+1 
I=TT 
T(I)=3 


00015310 

00015320 

00015330 

00015340 

00015350 

00015360 

00015370 

00015380 

00015390 

00015400 

00015410 

00015420 

00015430 

00015440 

00015450 

00015460 

00015470 

00015480 

00015490 

00015500 

00015510 

00015520 

00015530 

00015540 

00015550 

00015560 

00015570 

00015580 

00015590 

00015600 

00015610 

00015620 

00015630 

00015640 

00015650 

00015660 

00015670 

00015680 

00015690 

00015700 

00015710 

00015720 

00015730 

00015740 

0Q01575G 

00015760 

00015770 

00015780 

00015790 

00015800 

00015810 

00015820 
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CaC+1 

IFCC.LT.COLS) GO TO 10WQ 
1=2 
COl.»1 
C 

C LOAO CELL NUMBER 

C 

11000 CELNUM=CH1P{R0W,C0L> 

T(I)=CELNUN+1000 

00 = 1+1 

T(00)=2 

C 

C aEAR NET POINTER 

C 

NETINO=0 
11040 1=1+1 
C 

C IF LOOKING AT TRANS. BOUNDARY^ GO TO NEXT TRANS. ROUTINE 
C 

1F<T(I).EQ.3) GO TO 11180 

C 

C IF NO SPACE AFTER LAST NUMBER, SKIP A PLACE 
C 

11080 00=1-1 

IF<T(00),GE.1000) 60 TO 11040 
IF(CELNUM.EQ.O) 60 TO 11040 
C 

C GET NEXT CELL-NET 
C 

NET=CLNTS(START(CELNUM)+NETINO) 

c 

C IF NET NOT FOR THIS CELL, SKIP IT 
C 

00=NET/1000 

IF(OO.NE.CELNUH) 60 TO 11040 
C 

C LOAD NET NUMBER 

C 

T(I)=NETNOS(NET-(00+1GOO))+1000 
NETIND=NETIND+1 
60 TO 11040 
C 

C NEXT TRANS. ROUTINE 

C 

11180 coL=c(a.+i 
1 = 1+1 

IF(COL.LE.COLS) 60 TO 11215 
00 = 1-1 
T(00)=1 
ENDR=I-1 
60 TO 11260 
C 


00015830 

00015840 

00015850 

00015860 

00015870 

00015880 

00015890 

00015900 

00015910 

00015920 

00015930 

00015940 

00015950 

00015960 

00015970 

00015980 

00015990 

00016000 

00016010 

00016020 

00016030 

00016040 

00016050 

00016060 

00016070 

00016080 

00016090 

00016100 

00016110 

00016120 

00016130 

00016140 

00016150 

00016160 

00016170 

00016180 

00016190 

00016200 

00016210 

00016220 

00016230 

00016240 

00016250 

00016260 

00016270 

00016280 

00016290 

00016300 

00016310 

00016320 

00016330 

00016340 
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C IF STILL IN SAME CELL, CONTINUE 
C 

11215 IF(CH1P(ROW,COL) .EQ.O) GO TO 11240 

IF(CHIP(ROy,COL).EQ.CELNU«) GO TO llOaO 

c 

C NEW CELL— DRAW BOUNDARY AND GO ON 

C 

11240 00=1-1 
T(00)=1 
GO TO 11000 
C 

C EXIT 

C 

11260 TT1=T(C0L1) 

RETURN 

END 

SUBROUTINE PAOPUT 
C 

C*<HHHHHrtr*jH>*it*-»******Tt*»****»*****A****»**-»***»***<l«*** 

C 

C 

C PADPUT — PLACES PADS TO OPTIMIZE W/ RESPECT TO CELL PLACEMENT 

C 

C 

C**************************** ******** ******************»i> 

C 

IMPLICIT INTEGER (A-Y) 

COMMON /GLBL/ PRNTR,ROR,NCELLS,NNETS,NPADS, DEBUG, MXCELS,XXX(9) 
COMMON /FLDDTA/ CHIP(30,100) ,RQWS,C0LS,P0S(10Q0,2),NFL,NPI 
COMMON /PADPL/ ZPDPLC (1 00,2) 

COMMON /CLNET/ CLNTS (3000) ,LSTCEL,FRSCLU 

COMMON /NETDTA/ NETS (3000) ,WID(1000) , PADS (1 00) ,NETNOS (500) 

COMMON PLPNTd 0,2), BARTER (1 00,2), f©ARR,NPADLC,OPT(100,2), 

& CELPNT(1Q0),CELLST(1OQO), 

& ZPDL0C(100,2) 

PADFIL=13 ■ - 

NPADLC=0 
TEST1=8*R0WS+25 
TEST2=3*C0LS+24 
C 

C RETRIEVE PAD LOCATION DATA FOR STAR FROM STARPADLOC FILE 
C 

REWIND PAOFIL 

100 READ(PADFIL,7001,END=200) XI, X2 
7001 F0RNATC2(I4)) 

C 

C IF XKO, THIS IS START OF NEXT STAR 
C 

IF(XI.GE.O) GO TO 100 
C 

C CHECK XI, X2 AGAINST .ROWS,COLS 
C 


00016350 

00016360 

00016370 

00016380 

00016390 

00016400 

00016410 

00016420 

00016430 

00016440 

00016450 

00016460 

00016470 

00016480 

00016490 

00016500 

00016510 

00016520 

00016530 

00016540 

00016550 

00016560 

00016570 

00016580 

00016590 

00016600 

00016610 

00016620 

00016630 

00016640 

00016650 

00016660 

00016670 

00016680 

00016690 

00016700 

00016710 

00016720 

00016730 

00016740 

00016750 

00016760 

00016770 

00016780 

00016790 

00016800 

00016810 

00016820 

00016830 

00016840 

00016850 

00016860 
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X1=-X1 


00016870 


IF(XI.NE.ROWS) GO TO 100 


00016880 


IFCX2.NE.C0LS) GO TO 100 


00016890 


60 TO 300 


00016900 

c 



00016910 

c 

STAR SIZE NOT FOUND — BOMB OUT 


00016920 

c 



00016930 

200 

WRITE(PRNTR,7002) ROWS, COLS 


00016940 

7002 

FORMAT ('OERROR(PADOI) ~ ',I4,' BY ',14,* STAR NOT 

FOUND', 

00016950 


f. ' IN PAD LOCATION FILE') 


00016960 


STOP 


00016970 

C 



00016980 

C 

FOUND HEADER FOR STAR — READ IN PAD LOCATIONS 


00016990 

c 

AND CONVERT TO ROW, COL EQUIVALENTS FOR 


00017000 

c 

CENTERS — SAVE # PAD LOCATIONS IN NPADLC 


00017010 

c 



00017020 

3Q0 

READ(PADFIL,7001,END=400) X,Y 


00017030 


IF(X.LT.O) GO TO 400 


00017040 


IF((Y.EQ.-25).0R.<Y.EQ.TEST1)> 2C=a-15.)/3. 


00017050 


IF(X.EQ.17) ZC=0. 


00017060 


IF(X.EQ.TEST2) ZC=CCLS+1 


00017070 


IF((X.EQ.17).0R.(X.EQ.TEST2)) ZR=(Y-13,)/8, 


00017080 


IF(Y.EQ.TESTI) ZR=R0WS*1 


00017090 


IF(Y.EQ.-25) ZR=0. 


00017100 


NPADLC=NPADLC+1 


00017110 


BARIER(NPADLC,1)=X 


00017120 


8ARIER(NPADLC,2)=Y 


00017130 


ZPDL0C(NPA0LC,1)=ZC 


00017140 


ZPDL0C(NPADLC,2)=ZR 


00017150 


GO TO 300 


0n017160 

C 



00017170 

C 

PAD LOCATIONS RETRIEVED — CHECK FOR TOO MANY PADS 


00017180 

C 



00017190 

400 

IF(NPADLC.GE.NPADS) GO TO 500 


00017200 


WRITE<PRNTR,7003) NPADS,ROWS,COLS,NPADLC 


00017210 

7003 

F0RMAT('0ERR0R(PAD02) — ',14,' PADS IN CIRCUIT ~ 

MAX FOR ' 

,14, 00017220 


& ' BY ',14,' STAR IS ',14) 


00017230 


STOP 


00017240 

C 



00017250 

C 

aEAR PAD PLACEMENT (ZPDPLC) ARRAY 


00017260 

C 



00017270 

500 

DO 510 I=1,NPADS 


00017280 


ZPDPLC(I,1)=0. 


00017290 


ZPDPLC ( I, 2)=0. 


00017300 

510 

CONTINUE 


00017310 

C 



00017320 

C 

SET 9 UNPLACED PADS ° 9 PADS 


00017330 

C 



00017340 


NPDREM»NPADS 


00017350 

C 



00017360 

C 

FIND OPT. ASSIGNMENT FOR ALL PADS ON FIRST PASS THROUGH ASS. 

SECTI00017370 


C ' 00017380 
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ALLFLG=0 

C 

C FORM CELPNT/CELLST ARRAYS 

C 

1=1 

600 aPTPT=1 
CLLSPT=1 
CLNTPT=1 
C 

C FIND CELL-NETS FOR ITH PAD 

C 

610 a=CLNTS(CLNTPT)/1000 

IF(CL.EQ.PADSCI)) GO TO 620 
CLNTPT=CLNTPT+1 

IF(CLNTPT.LT.FRSCLU) ‘60 TO 610 
WRITE(PRNTR,7004) PADS(I) 

7004 F0RMAT(‘0ERR0R(PAD03) — CELL-NETS FOR PAD ',14^* NOT FOUND') 
STOP 

C 

C FOUND CELL -NETS — ASSUME ONLY ONE NET — LOAD ITS U TO PADNET 
C 

620 PADNET=CLNTS(CLNTPT)-CL*1QQ0 
C 

C FIND PADNET IN NETS ARRAY 
C 

NETPNT=1 

NET=1 

630 IFCNET.EQ. PADNET) GO TO 660 
640 NETPNT=N£TPNT+1 

IF(NETSCNETPNT) .NE.O) GO TO 650 

NET=NET+1 

NETPNT=N£TPNT+1 . 

GO TO 630 

650 IF(NETSCNETPNT) .NE.-1) GO TO 640 
WRITE(PRNTR,7005) PADNET 

7005 F0RMAT('0ERROR(PAD04) — INT. NET U '/I4/ NOT FOUND') 

STOP 

C 

C PADNET FOUND — LOAD CELL (NOT PAD) #'S TO CELLST ARRAY 
C 

660 CELPNT(CLPTPT)=CLLSPT 
CLPTPT=CLPTPT+1 
CCNT=0 

670 CELL=NETS(NETPNT) 

IF(WID(CELL).EQ.O) GO TO 680 
CCNT=CCNT+1 
CELLST(CLLSPT)=CELL 
CLLSPT=CLLSPT+1 
680 NETPNT=NETPNT+1 

IF(NETSCNETPNT) .NE.O) GO TO 670 
IFCCCNT.NE.O) GO TO 690 
yRITE(PRNTR^7006) PADS(I) 


00017390 
00017400 
00017410 
00017420 
00017430 
00017440 
00017450 
00017460 
00017470 
00017480 
00017490 
00017500 
00017510 
00017520 
00017530 
00017540 
00017550 
00017560 
00017570 
00017580 
00017590 
00017600 
00017610 
00017620 
00017630 
00017640 
00017650 
00017660 
00017670 
00017680 
00017690 
00017700 
00017710 
00017720 
00017730 
00017740 
00017750 
00017760 
00017770 
00017780 
00017790 
00017800 
00017810 
00017320 
00017830 
00017840 
00017850 
00017860 
00017870 
00017880 
00017890 
0001 7900 
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7Q06 

C 

c 

690 


C 

C 

C 

c 

c 

c 

c 

1000 


c 

c 

c 

1010 

c 

c 

c 

c 

c 

c 

1020 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

1030 

c 

c 

c 


FOR«AT<*OERROR<PAD05) — PAD M4^' CONNECTED TO NO CEUS') 
STOP 

DONE WITH THIS PAD — IF MORE REMAIN^ CONTINUE 

IaI+1 

CLNTPTal 

IF(I.LE.NPADS) GO TO 610 
CELPNT<CLPTPT)=CLLSPT 

FORM ASSIGNMENTS FOR ALL PADS ON FIRST PASS 
USE I FOR PAD INDEXING 

1=1 

FIND OPTIMUM ASSIGNMENT (UNOCCUPIED LOCATION) FOR ITH PAD 
K=0 

ZBEST=99999. 

CLLSPT=CELPNT(I) 

CELL IS A CELL HOOKED TO ITH PAD 
CELL=CELLST(CLLSPT) 

USE PADLOC FOR PAD LOCATION INDEXING 
PADL0C=1 

IS PAD LOCATION OCCUPIED? — IF SO^ SKIP IT 
IF(ZPDLOC(PADLOC,1).LT.O) GO TO 1030 

COMPUTE MANHATTAN DISTANCE FROM CELL CENTER TO PAD CENTER 


00017910 

00017920 

00017930 

00017940 

00017950 

00017960 

00017970 

00017980 

00017990 

00018000 

00018010 

00018020 

00018030 

00018040 

00018050 

00018060 

00018070 

00018080 

00018090 

00018100 

00018110 

00018120 

00018130 

00013140 

00018150 

00018160 

00018170 

CXD018180 

00018190 

00018200 

00018210 

00018220 

00018230 


00018240 

ZDIST=ABS (FLOAT (POS(CELL^1))+.5*FLOAT(WID(CELL))-ZPDLOC(PADLOC^1))O0018250 


Z DIST=Z DIST+ABS ( FLOAT (POS ( CELL,2) ) -ZPDLOC (PA0L0C^2) ) 

IF THIS DISTANCE IS CURRENT BEST FOR CEUS HOOKED TO ITH PAD, 
UPDATE RECORD OF BEST 

IF(ZDIST.GE.ZBEST) GO TO 1030 

K=PADLOC 

ZBEST=ZDIST 

CHECK THIS CELL AGAINST NEXT PAD LOCATION 
PA0L0C=PADL0C+1 

IF(RADLOC.LE.NPADLC) go to 1020 
WORK ON NEXT CELL HOOKED TO ITH PAD 
CLLSPT=CLLSPT*1 


00018260 

00018270 

00018280 

00018290 

00018300 

00018310 

00018320 

00018330 

00018340 

00018350 

00018360 

00018370 

00018380 

00018390 

00018400 

00018410 

00018420 
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11=1+1 

00018430 


IF(CLLSPT.LT.CELPNT(I1)) GO TO 1010 

00018440 

c 


00018450 

c 

KTH PAD LOCATION IS OPT. PLACE FOR ITH PAD — UPDATE RECORD 

00018460 

c 


00018470 


0PT(I^1)=K 

00018480 


0PT(I,2)=INTCZBEST) 

00018490 

c 


00018500 

c 

IF THIS IS NOT FIRST PASS/ HE'RE DONE — OTHERWISE/ NEXT PAD 

00018510 

c 


00018520 


IF(ALLFLG.NE.O) GO TO 2000 

00018530 


1=1+1 

00018540’ 


IF(I.LE.NPADS) GO TO 1000 

00018550 

c 


00018560 

c 

DONE WITH FIRST PASS — SET FUG 

00018570 

c 


00018580 


ALLFL6=1 

00018590 

c 


00018600 

c 

FIND THE MOST OPTIMUM ASSIGNMENT OVER ALL PADS 

00018610 

c 


00018620 

2Q0Q 

BEST=9999 

00018630 


DO 2020 I=1/NPADS 

00018640 


T1=ABS(ZPDPLC(I/1)) 

00018650 


IFCT1.GT.1.E-6) GO TO 2020 

00018660 


T2=ABS(ZPDPLC(I/2)) 

00018670 


IF(T2.GT.1 .E-6) GO TO 2020 

00018680 


IF(0PT(I/2).GE.BEST) GO TO 2020 

00018690 


BEST=0PT(I/2) 

00018700 


L=I 

00018710 

2020 

CONTINUE 

00018720 

C 


00018730 

C 

MOST OPT. ASSIGNMENT IS LTH PAD — IF ITS LOCATION IS 

00018740 

C 

OCCUPIED/ RECOMPUTE OPT. LOCATION FOR LTH PAD 

00018750 

C 


00018760 


IF(ZPDLOC(OPT(L/1)/1).GE.O.) GO TO 2030 

00018770 


I=L 

00018780 


GO TO 1000 

00018790 

c 


00018800 

c 

NOT OCCUPIED — PLACE LTH PAD THERE 

00018810 

c 


00018820 

2030 

LOC=OPT(L/1) 

00018830 


ZPDPLC(L/1)=ZPDL0C(L0C/1) 

00018840 


ZPDPLC(L/2)=ZPOLOC(LOC/2) 

00018850 


ZPDL0C(L0C,1)=-1 

00018860 


BARIER(L0C,1)=0 

00018870 


NPDREM=NPDREM-1 

00018880 


WRITE (PRNTR, 8000) PADS(L)/ZP0PLC(L/2)/ZPDPLC(L/1) 

00018890 

8000 

FORMATCOPAD '/I4/' PUCED AT ’/F5.1/' / '/F5.D 

00018900 

C 


00018910 

C 

IF UNPLACED PADS REMAIN/ CONTINUE 

00018920 

C 


00018930 


IF(NPDREM.NE.O) GO TO 2000 

C0018940 
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C 

C ALL PLACED — FIND # BARRIEKS NEEDED t 2XXT 
C 

NBARRsQ 

DO 5000 I=1^NPADLC 
IF(BARIER(I,1}.N£.0) NBARR»NBARR-»-1 

5000 continue 

RETURN 

END 

SUBROUTINE OUTBLD 
C 


c 

c 

C OUTBLD— BUILDS OUTPUT FILE FOR ROUTER 
C 

c 


c 

IMPLICIT INTEGER(A-Y) 

COMON /GLBL/ PRNTR,R0R,NCELLS,NNETS^NPADS^DEBUS/WCELS,XXX(9) 
COHNON /NETDTA/ INPC3000) /yiDCIOOO)^PAD(IOO) ^NETKOS(500> 

COKPON /PADPL/ ZPDPLCdOO^Z) 

COMMON /FLDDTA/ CHIP(30d0Q)^R0WS^C0LS^P0S(1000,2),NFL,NPI 
COMMON PLPNT<10,2)^8ARIER(100y2),NBARR,NPADLC 
INTEGER CHARW/'y '/^BLANK/' V 
INTEGER TEMP<72) 

IEFILE=12 
0UFILE=19 
REyiND lEFILE 
WIRZIN=0 

100 READ(IEFILE,8001,END=10000) A,B 

8001 F0RMAT(2(I12)) 

IF(A.NE.O) GO TO 10000 


C 

C TITLE? 

C 

110 IF(B.NE.-I) GO TO 200 

READ(IEFILE,8001^END=10000)A^B 
yRITE(OUFILE,8002)A,B 
8002 FORMATCTITLE ',2<AA)) 

GO TO 100 


C 

C SIZE? 

C 

200 IF(B.NE.-2> GO TO 300 

READ(IEFILE,8001/END310000)A^B 
WRITE(OUFILE,8003)A/B 
8003 FORMATCSTAR SIZE '^2(15)) 

60 TO 100 


C 

C FULL-LENGTH RECORD? 


00018950 
00018960 
00018970 
00018980 
00018990 
00019000 
00019010 
00019020 
00019030 
00019040 
00019050 
00019060 
00019070 
00019080 
00019090 
00019100 
00019110 
00019120 
00019130 
000191 40 
00019150 
00019160 
00019170 
00019180 
00019190 
00019200 
00019210 
00019220 
00019230 
00019240 
00019250 
00019260 
00019270 
00019280 
00019290 
00019300 
00019310 
00019320 
00019330 
00019340 
00019350 
00019360 
00019370 
00019380 
00019390 
00019400 
00019410 
00019420 
00019430 
00019440 
00019450 
00019460 



119 


300 

IF(B.NE.-6) GO TO 400 

00019470 


REAO(IEFILE,8004,END=10000)TE«P 

00019480 

8004 

F0RMAT(72(AD) 

00019490 


yRITE(0UFILE^8004)TEMP 

00019500 

C 


00019510 

C 

SET WIRZIN FLAG IF THIS IS 'WIRES' 

00019520 

C 


00019530 


1=0 

00019540 

310 

1=1+1 

00019550 


IF(TENPCI) .EQ. BLANK) GO TO 310 

00019560 


IFCTEMPCD.EQ.CHARW) WIRZIN=1 

00019570 


GO TO 100 

00019580 

C 


00019590 

C 

NETS? 

00019600 

C 


00019610 

400 

IFCB.NE.-4) GO TO 500 

C001762Q 


WRITE(0UFILE,8005) 

00019630 

8005 

FORMAT (‘NETS') 

00019640 

C 


00019650 

C 

START OF NET 

00019660 

C 


00019670 


READ (lEFILE, 8001, EN0=1 0000) A,B 

00019680 

410 

IF(A.NE.O) GO TO 10000 

00019690 


IF(B.NE.-5) GO TO 110 

00019700 

c 


00019710 

c 

LOAD NET ti TO TEMP 

00019720 

c 


00019730 


READ(IEFILE,8001,END=1000a)A,B 

00019740 


TEMP(1)=A 

00019750 


TMP=2 

00019760 


NET=A 

00019770 

c 


00019780 

c 

GET CELL, PIN PAIRS 

00019790 

c 


00019800 

420 

READ(IEFILE,8001,END=10000)A,B 

00019810 


IF(A.EQ.O) GO TO 450 

0W19«20 

421 

TEMP(TMP)=A 

00019830 


TMP=TMP+1 

00019840 


TEMP(TMP)=B 

00019850 


TMP=TMP+1 

00019860 


IF(T«P.LT,11) GO TO 420 

00019870 

450 

TMP=TMP-1 

00019880 


IFCTMP.EQ.1) GO TO 410 

00019890 


WRITE(0UFILE,8006)(TEMP(I),I=1,TMP) 

00019900 

8006 

F0RMAT(12(I6)) 

00019910 


IF(A.EQ.O) GO TO 410 

00019920 


TMP=2 

00019930 


TEMP(1)=NET 

00019940 


REAO(IEFILE,8Q01,ENO=10000)A,B 

00019950 


IF(A.EQ.O) GO TO 410 

00019960 


GO TO 421 

00019970 

C 


00019980 
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C GATES TO PATTERNS? 

C 

500 IF(B.NE.-3) GO TO 600 

C 

C GET G^P PAIR 

C 

WRITE(OUFILE/8007) 

8007 FORflAT( 'GATES TO PATTERNS') 

TNP=1 

510 READ(IEFILE,8QO1^END^1OOOO)A/0 
IF(A.EQ.O) GO TO 520 
C 

C LOAD TO TEMP ARRAY 

C 

TEMPCTMP)=A 

THP^“MP+1 

TEHP(TMP)=B 

TMP=TMP+1 

IF(TMP.LT.13)G0 TO 510 
520 THP=T«P-1 
C 

C CHECK FOR PADS 

C 

1=2 

522 IF<TEMP<I).LT.7000) GO TO 540 

C 

C PAD FOUND — GET R,C POSITION FROM ZPDPLC 
C 

J=I-1 

DO 525 K=1^NPA0S 
IFCPADOO .Ea.TEHP(J)) GO TO 527 
525 CONTINUE 

WRITE(PRNTR,8008) TEHP(J) 

8008 FORMAT! 'OERROR(OUTOI) ~ CANT FIND PAD ',14,' IN PAD ARRAY') 

527 C=ZPDPLC(K^1) 

C 

C IF PADS TOP OR BOTTOM^ TYPE 9 OKAY 
C 

IFC(C.NE.O) .ANO.CC.lt. COLS)) GO TO 540 
C ON SIDE — IS THIS INPUT PAD? 

IFCTEMP(I).NE.9200) GO TO 528 
C 

C INPUT PAD— CHANGE TYPE TO 9100 
C 

TEMPCI)=9100 
GO TO 540 
C 

C OUTPUT PAD— IF ON LEFT, TYPE IS 9110— IF RIGHT, 9120 
C 

528 IF(C.Fo.O) TEMP(I)=9110 
IF(C.GT.C0LS)TEMP(I)=9120 

540 1=1+2 


00019990 

00020000 

00020010 

00020020 

00020030 

00020040 

0002U050 

00020060 

00020070 

00020080 

OC020090 

00020100 

00020110 

00020120 

00020130 

00020140 

00020150 

00020160 

00020170 

00020180 

00020190 

00020200 

00020210 

00020220 

00020230 

0002024n 

00020250 

00020260 

00020270 

00020280 

00020290 

0U02C300 

00020310 

00020320 

00020330 

00020340 

00020350 

00020360 

00020370 

00020380 

00020390 

00020400 

00020410 

00020420 

00020430 

00020440 

00020450 

00020460 

00020470 

00020480 

00020490 

00020500 
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If(I.LE.TNP) GO TO 522 
C 

C PAD TYPE #'S CORRECTED— DUMP RECORD 
C 

WRITE(OUFILE,8006) CTEMpCD^lPl^TW*) 

IF(A.EQ.O) CALL MSFCF 
IF(A.EQ.O) GO TO 110 
TflP=1 
GO TO 510 
C 

C EOF? 

C 

600 IFCB.NE.-?) GO TO 10000 • 

C 

C DO yE NEED TO ADO BARRIERS? — IF NOT, SKIP THIS PART 
C 

IF(NBARR.EQ.Q) GO TO 700 
C 

C 'yiRES* SEGMENT STARTED? — IF NOT, START IT 

C 

IF(WIR2IN.EQ.O) yRITE(QUFILE,9Q01) 

9001 FORMAT('WIRES') 

C 

C DUMP BARRIER FOR EACH UNUSED PAD 
C 

TEST1=8+R0WS+25 
TEST2=3*CCLS+^A 
DO 650 I=1,NPADLC 
IFCBARIER(I,1).EQ.O) GO TO 650 
C 

C XP & YP ARE COORDS OF UNUSED PAD 

C 

XP=8ARIER(I,1) 

YP=BARIERCI,2) 

C 

C HANDLE TOP, BOTTOM PADS 

C 

IF((YP.NE.-25).AND.(YP.NE.TEST1)) GO TO 610 
YP=YP+1 

IF(YP.LT.0)YP=24 
LEVEL=6 
X1=XP 
Y1=YP 
X2=XP+14 
Y2=YP 
GO TO 620 
C 

C HANDLE SIDE PADS 

C 

610 LEVEL=6 

Xl=XP+5 
Y1=YP+1 


00020510 

00020520 

00020530 

00020540 

00020550 

00020560 

00020570 

00020580 

00020590 

00020600 

00020610 

00020620 

00020630 

00020640 

00020650 

00020660 

00020670 

00020680 

00020690 

00020700 

QD02G710 

00020720 

00020730 

00020740 

00020750 

00020760 

00020770 

00020780 

00020790 

00020800 

00020810 

00020820 

00020830 

00020840 

00020850 

00020860 

00020870 

00020880 

00020890 

00020900 

00020910 

00020920 

00020930 

00020940 

00020950 

00020960 

00020970 

00020930 

00020990 

00021000 

00021010 

00021020 
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X2=XP+5 

Y2=YP't>15 

620 OT1TE(0UF1LE,9QQ2) LEVEL^XI ,Y1^X2,Y2 
9002 F0RNAT(5(I5^2X),'BARR') 

WRITE(PRNTR, 10003) LEVEL, XI ,Y1,X2,Y2 
10003 FORMAT COBARRIER CONSTRUCTED ON LEVEL ',13,' FROM *,15,' , 
ft 15/ TO M5/ , M5) 

650 CONTINUE 
700 B4DFILE OUFILE 

WRITE(PRNTR,80Q9) 

8009 FORMAT COOUTPUT FILE CONSTRUCTED') 

RETURN 

10000 WRITE(PRNTR,801Q) 

8010 F0RMAT('0ERR0RC0UTQ2) END MARKER NOT FOUND IN INPUT ECHO FILE— 
iPUT FILE NOT CONSTRUCTED') 

STOP 

END 


00021030 

00021040 

00021050 

00021060 

00021070 

00021080 

00021090 

00021100 

00021110 

00021120 

00021130 

00021140 

00021150 

OU00021160 

00021170 

00021180 

00021190 



